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Single-Board vs. 
Personal Computers 

Which Option Is Best for You? 








Tony Famiglietti 

Applications Development Manager 



“At ADDS, we’ve just designed a compact 
computer family with software that takes you all the 
way from mini disk to multi-user. 

“MULTIVISION ™ 1 (top module) starts you off 
with a 5 MHz processor, 64K bytes of RAM, and 
700K bytes of mini disk storage. All for $3,785. 

“MULTIVISION 2 (top and bottom) adds 5M 
or 10M bytes of hard-disk storage. 

“MULTIVISION 3 (entire stack) adds multi-user 
capability. It can serve up to four display terminals 
simultaneously. 

“ADDS’ advanced software enables this upgrading 
with no costly conversion, no change in operating 
system, utilities, or program languages. 

“It includes a multi-user operating system that 
can run one to four CP/M®-compatible programs 
simultaneously. . .a Microsoft BASIC Interpreter to help 
you develop and run your own programs. . . Microsoft 
BASIC Compiler for high-speed running of protected, 
proprietary programs... and BASIC Data. Management 
for multi-key, multi-record access to large ISAM files. 

“We even offer an ADDS-developed package that 
permits Multivision to be used as a word processor.” 

Before you decide upon any small computer, 
look into ADDS Multivision. Write: Systems Division, 
Applied Digital Data Systems Inc., 100 Marcus Boule- 
vard, Hauppauge, N.Y. 11787. Dealer inquiries invited. 

CP/M is a registered trademark of Digital Research, Inc. 



SOMETHING EXTRA M EVERYTHING Wl DO 



'‘How, go mini disk to multi-user 
with no software conversion:’ 




\ |\ Mountain Hardware 

MusicSystem 

All ih e x m s tr iirri e n t s 
Anyon^^ithYm Apple 



MusicSystem generates the sound of any musical 
instrument— real or imagined! Solo or sextet. Rock 
or classical. Laid-back or loud. At home or in the 
concert hall or classroom. MusicSystem sets new 
standards for c 



Drop by your Apple Dealer and ask to hear for 
yourself. You'll knpw what we mean When we\say 
MusicSystem is all the instruments anyone with an 
Apple can play! 



puter generated music. 

Digital Synthesizer with 16 voices. Stereo output. 
Polyphonic-multi-voice chords and note sequen- 
:es. Additive synjthesis of instruments. Waveforms, 
envelopes, and afmplitudes are fully programmable 
or each voice to create instrument definitions and 
nusic dynamics. 32 Khz sample rate. Frequency 
esolution is .5jftz steps. Graphical input of sheet 
nusic on hig|f-resolution screen using standard 
nusic notation. Print out sheet music with a 
graphics pnjnter. Complete software operating 
>ystem. Graphical music editor using light pen 
provided*), game paddles, or keyboard. Pre- 
miered music provided for immediate playing 
md enjoyment. Thorough documentation and 
utorial user's manual. 
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Mountain Hardware 

LEADERSHIP IN COMPUTER PERIPHERALS 

A Division of Mountain Computer, Inc. 

300 Harvey West Blvd., Santa Cruz. CA 95060 
(400) 429-8600 
Music 1 can play? Send details. 
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Single-Board vs. Personal Computers: Which Option Is Best for You? 24 

A look at the advantages and disadvantages of single-board and personal com- 
puters. by Lance A. Levanthal 

Cassette Tape Labels 33 

Print neat, readable labels for your cassettes, by Alan Walker 

A Handy Sort 37 

Here’s a modified bubble sort, short and simple, by Dwight Wheeler 

FastGomoku 50 

A speedy version of a popular game, by Ron Burke 



Software Update 54 

A lighthearted look at some unusual software, by David Lubar 




Dear Diary 61 

Now your computer can keep your personal journal, by M. Blair Sibley 

Fastmath 64 

Let your computer tutor children in simple math, by R.P. Ford and J.G. Sparti 

Line Renumbering 71 

Renumber individual lines in your program one by one. by Franklyn D. Miller 

Video Tape Selector 76 



A three-dimensional filing system for your TV program tapes, by Robert C. Kyle 
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IN THE MONEY 

Inventory Simulation 28 

Save money by determining optimum inventory levels, by Adrian Woods 

Rental Income 40 

Use this program to generate income and expense statements for your rental 
properties, by W.B. Goldsmith , Jr. 

Personalized Sales Message 44 

Send personalized messages to businesses needing your services, by Clint Hentz 

What Are You Worth? 46 

Find out exactly what your financial status is. by David M. Dolan 
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Amortization Tables 73 

Here's a flexible, handy program to print amortization tables, by De Witt Brown 
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Moving Up to Lower Case 56 

Buying considerations for TRS-80 owners interested in a lowercase modification. 
by Dave Rose 

Searching for Ivan Denisovitch 68 

Use your computer to catalog titled material: books, records, films, slides and so 
forth, by John Webster 

Save Those Bytes 78 

Here's a subroutine to save bytes when storing dates, by Charles Z. Tzinberg 
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What do you need? 

Program listings . . . inventory listings . . . 
custom logos and letters . . . mailing labels in a 
multitude of sizes . . . custom forms and the data 
to complete them . . . curve plotting or bar 
graphs . . . digitized images from video or bit 
pads . . . multi-part forms . . . preprinted forms 
. . . tickets . . . and the list goes on . . . 



How do we do it? 

High speed bi-directional full logic printing; two 
standard character sets, upper/lower case 
with descenders; high speed font at 165 cps; 
letter quality font at 90 cps; expanded 
characters, solid underlining; programmable 
character sets; complete dot control graphics; 
adjustable tractor feed 3”-16”; user adjustable 
platen; programmable tabs, forms length and 
line spacing; out of paper signal; self-test; 
interface options — RS-232C, Centronics 
parallel, Apple, S-100; and the list goes on . . . 



The Malibu Model 165 

Find out if it’s the easy solution to your hard copy needs — contact 
your local computer dealer or you can write or call us today for 
complete specifications and print samples — you won’t be disappointed. 



Versatility, Quality and Reliability: We build it in. 



malibu 

Electronics Corporation 



Dealers and OEM’S, call us about our new purchase programs 
with prices, terms and delivery to meet your needs too. 



2301 Townsgate Road, Westlake Village, CA 91361 (803)496-1990 

a subsidiary of Datametrlcs Corporation 
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UTILITY 

MEANS 






APPLESOFT UTILITY 
PROGRAMS (Gilder) 



. . 'you calculate the decimal 

* address of your machine 
language program, renumber 
the program In any Increment, 
join two or more programs 
together, and more.Contalns 9 
subroutines, among them 3 
statement formatters: REM, 
PRINT, and Poke writer. 
#03504, Apple II, $29.96 



REVIVE (Gilder) 






^recover “lost" programs. 
f When a program Is acciden- 
tally erased, REVIVE searches 
through memory and finds the 
information that enables It to 
restore the pointers that have 
been changed. Can be loaded 
at anytime, even after you have 
accidentally erased the pro- 
gram. #03604, Apple II, $19.96 



SLOW LIST/ 

STOP LIST (Gilder) 

start, stop, and control the 
r speed of your program with 
Apple M's game paddles. Con- 
trol the speed at which the disk 
catalog appears and terminate 
CATALOG operation in the 
middle. The program can be 
enabled and disabled under 
software control. #03904, 
Apple II, $10.95 



. . .And All That Help 
Comes From Hayden — 
Your Software Publisher! 

At computer stores 
everywhere! 

Call (201) 843-0550, ext. 307 
TO CHARGE YOUR ORDER TO 
Master Charge or BankAmerlcardl 

Minimum order is $10.00; customer 
pays postage and handling. 

Hayden Booh Company, Inc. 

50 Essex Street, Rochelle Park, NJ 07662 
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THE NEW 
TIMEWRITER 
PUTS TIME 
AT YOUR 
FINGERTIPS. 




It tells the time while it writes 
beautifully! 

The new Timewriter Century IV breaks the 
technology barrier. It’s a beautifully finished 
brushed stainless steel ballpoint pen. And it’s a 
digital watch with amazing accuracy. 

Timewriter’s large, easy-to-read liquid crystal 
display is always on. It shows you hour and 
minutes, seconds, month and date. Even in the 
dark! 

Flawless operation 

Integrated circuitry ensures flawless operation. 
And it’s engineered to fit your fingers for 
featherlight, non-skip executive writing. 

The Timewriter Century IV is only $34.95. Or 
order the Timewriter Century IV-Deluxe at $39.95. 
It has the same outstanding features as the Cen- 
tury IV plus a built-in solar cell that’s constantly 
charging its longlife battery. This is the perfect 
pen for executive writing— or for a unique birthday 
or graduation gift. 

No-risk guaranty 

Both models include an extra refill, plush-lined 
executive presentation case, complete instruc- 
tions, and a full one-year warranty. You must be 
delighted with your new Timewriter, or return it to 
us within 10 days for a full refund. 

EASY TO ORDER 

For fastest delivery, call us toll free, anytime of 
the day or night and charge to your Visa or Master- 
charge. Or send your check, adding $1.95 for 
postage and handling for the first Timewriter 
ordered. Postage and handling charges are free 
on additional Timewriters going to the same ad- 
dress. (California residents add 6 V 2 % tax — $2.27 
for Timewriter IV, $2.60 for Timewriter IV-Deluxe.) 



The Leed Corporation 
10381 S. De Anza Blvd 
Dept. PC 

Cupertino, CA 95014 

ORDER TOLL-FREE: 
(800) 257-7850 

in New Jersey 1 (800) 327-8650 

The Leed Corporation 
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WE WILL NOT BE UNDERSOLD 



16K MEMORY UPGRADE KITS $59 

for TRS-80*. Apple II. Sorcerer (specify) 

PRINTERS NEC Spinwriter 

Letter Quality High Speed Printer 

Includes TRS-80* interface software, quick 
change print fonts. 55 cps, bidirectional, 
high resolution plotting, graphing, propor- 
tional spacing $2689 

With Tractor Feed $2889 

DIABLO 1 650 Letter Quality High Speed Printer 

Prints at 40 cps, using 88, 92, or 96 char. Metalized printwheels. 
Vertical resolution y 48 "; Horizontal Vi 20 • Capable of proportional 
spacing, bidirectional printing, and graphics under software con- 
trol. Bidirectional normal and direct tabs. Left, right, top and bot- 
tom margins. Friction and tractor feed. R.O. $2890 KSR $3285 



779 CENTRONICS TRACTOR FEED PRINTER $969 

Same as Radio Shack line printer I 
737 CENTRONICS FRICTION & PIN FEED PRINTER $849 

9x7 matrix 

730 CENTRONICS FRICTION & PIN FEED PRINTER $639 

7x7 matrix Same as Radio Shack line printer II 
PI CENTRONICS PRINTER $269 

Same as Radio Shack quick printer 
PAPER TIGER (IP440) $948 

Includes 2K buffer and graphics option 
TI-810 Faster than Radio Shack line printer III 

Parallel and serial w/TRS-80* interface software $1575 
with upper and lower case and paper tray $1665 
OKIDATA Microline 80 Friction and pin feed $639 

Tractor Feed, friction, and pin feed $739 

EATON LRC 7000 + 64 columns, plain paper $349 



CAT MODEM Originate and answer same as $156 

Radio Shack Telephone Interface II 

LEEDEX MONITOR Video 100 $135 



DISK DRIVES $299 

More capacity than Radio Shack 35 Track (80 K 
Bytes) drives. Fully assembled and tested. 
Ready to plug-in and run the moment you 
receive it. Can be intermixed with each other 
and Radio Shack drive on same cable. TRS-80* 
compatible silver enclosure. 

90 DAY WARRANTY. ONE YEAR ON POWER SUPPLY. 



FOR TRS-80* 

CCM00 S'A", 40 Track (102K Bytes) for Model I $299 

CCI-200 5 V4", 77 Track (197K Bytes) for Model I $549 

CCi-800 8" Drive for Model II (Vj Meg Bytes) $795 

For Zenith Z89 

CCI-189 5V4", 40 Track (102K Bytes) add-on drive $394 

Z-87 Dual 5 V4" add-on drive system $995 

DISKETTES — Box of 10 (5V4")- with plastic library case $24.95 

8" double density for Model II (box of 10) $36.49 

COMPLETE SYSTEMS 

TRS-80* LEVEL II-16K with keypad $699 

TRS-80* Expansion Interface $249 

ZENITH Z89, 16K expands to 48K, all-in-one computer $1949 
ZENITH Z19 $740 

ATARI 400 $492 ATARI 800 $839 Tl 99/4 $894 

MATTEL INTELLIVISION $249 

NORTH STAR Horizon 1 32K. Double Density $2149 

Horizon 2 32K, Double Density $2609 

64K, Double Density $3229 

DISK OPERATING SYSTEMS 

PATCHPAK #4 by Percom Data $ 8.95 

CP/M for Model I, Zenith $145.00 

CP/M for Model II, Altos $170.00 

NEWDOS Plus — with over 200 modifications 35track $89.00 
and corrections to TRS-DOS 40 or 77 Track $99.00 





SOFTWARE FOR THE TRS-80* w/Manual / Alone 



CP/M BASED SOFTWARE for 
Zenith, Altos, Radio Shack, Apple w/Manual / 1 



Manual 

Alone 



CCHNVESTMENT PORTFOLIO MANAGER: This is 
what investors have been waiting for! This powerful 
program was developed by security analysts working 
with software designers. It comes on one cassette — 
16K LEVEL II BASIC on one side, 32K DISK BASIC on 
the other. Store and report data; Review your portfolio; 
Produce detailed status, value, gain, and security 
analysis; Compare alternatives S49.95/S10 

INTELLIGENT TERMINAL SYSTEM ST-80-III BY 
LANCE MIKLUS: Enables a TRS-80* to act as a dial- 
up terminal on any standard time sharing network. 
Provides a TRS-80* with control key. ESC Key, 
Repeat Key, Rub Out Key, Break Key, full upper and 
lower case support, selectable printer output and 
program selectable transmission rates S139/S10 

CCA DATA MANAGEMENT SYSTEM: Automate your 
information processing tasks. You can create a file of 
customer information; quickly and easily add, delete 
or update records; search a file; keep a file in order of 
the value in any field; and print records and labels in 
any desired sequence or from just a part of a file. 
Requires 32K TRS-80 and one drive. $74.95/S10 

CSA-MAILIST SYSTEM: Creates, maintains and effi- 
ciently utilizes a name, address and telephone 
number file. 400 individual name/address entries can 
be maintained on a single density mini-floppy, and are 
manipulated directly by record number (direct access 
file method). Sorts can be performed, name + address 
combinations can be coded. Listing-directories and 
labels can be printed. A conversion facility is provided 
to convert most sequential name, address file formats 
into direct. Requires 32K TRS-80 and one drive. 

$49.95/810 



S & M SYSTEMS 

INSEQ-80™: Indexed Sequential Access Method 
(ISAM) for the TRS-80 Model I. A must for anyone writ- 
ing business programs. Eliminate wasted disk space 
from direct record processing. Split second access to 
any record. Access data records instantly via alpha/ 
numeric "key" eg. Part NR, zip code or sequentially in 
ascending key sequence. Add/modify records in any 
order. Access up to three files per program — Files 
may be spread over multiple disks. Machine language 
processing from your basic program. Utility program 
to convert direct files to INSEQ-80 format. $49.95/810 
FULLY INTERACTIVE ACCOUNTING PACKAGE: 
ISAM (INSEQ-8Q) based. Includes General Ledger, 
Accounts Payable, Accounts Receivable and Payroll. 
System runs "stand alone” or "co ordinated G/L" at 
users option. Based on Osborne accounting method. 
Requires 32K, TRS-80, 2 or 3 drives. N/A CA. 



General Ledger $99/810 

Accounts Receivable $99/810 

Accounts Payable $99/810 

Payroll $99/$10 



Osborne books: Req'd as additional documentation 
$20 ea 

INVENTORY Requires 32K, TRS-80, 1 drive $125/810 
INSORT-80: Callable form BASIC via USR. Sorts “Ran- 
dom" Disk Files. “Disk" to "Disk" sort times — 350 
records in 35 secs, 1000 records in 6 minutes, 3500 
records in 12 minutes. Machine language processing. 
Up to 35 sort keys ascending/descending. Utility to 
build BASIC program. Runs under NEWDOS. 

$49.95/$*) 



MICROSOFT 

BASIC-80: Disk Extended BASIC ANSI compatible 
with long variable names, WHILE/WEND, chaining, 
variable length file records $325/825 

BASIC COMPILER: Language compatible with BASIC 
80 and 3-10 times faster execution. Produces standard 
Microsoft relocatable binary output. Includes M ACRO- 
80 Also linkable to FORTRAN-80 or COBOL-80 code 
modules. $350/$25 

FORTRAN -80: ANSI 66 (except for COMPLEX) plus 
many extensions. Includes relocatable object com- 
piler, linking loader, library with manager. Also 
includes MACRO-80 (see below) 8425/525 

COBAL-80: Level 1 ANSI 74 standard COBAL plus 
most of Level 2. Full sequential, relative and indexed 
file support with variable file names. STRING, UN- 
STRING, COMPUTE, VARYING/UNTIL, EXTEND. 
CALL, COPY, SEARCH, 3-dimensional arrays, com- 
pound and abbreviated conditions, nested IF. Power- 
ful interactive screen-handling extensions. Includes 
compatible assembler, linking loader, and relocatable 
library manager as described under MACRO-80. 

$700/825 

MACRO- 80: 8080/Z80 Macro Assembler. Intel and 
Zilog mnemonics supported. Relocatable linkable out- 

E ut. Loader, Library Manager and Cross Reference 
ist utilities included. $149/815 

EDIT-80: Very fast random access text editor for text 
with or without line numbers. Global and intro-line 
commands supported. File compare utility included. 

$89/515 

Z-80 SOFTCARD FOR APPLE Your key to future soft- 
ware expansion. Get the best of both worlds, Apple's 
6502 and CP/M Z-80. Plug in the card and get a Z80. 
Supports Apple language card and all Apple peripher- 
als. Comes with set of three manuals. $339/875 



muSIMP/muMATH-79: At last, a sophisticated math 
package for microcomputers, mu/MATH performs 
mathematical operations efficiently and accurately. 
Use it to solve equations and simplify formulas; or 
perform exact arithmetic and symbolic matrix inver- 
sion. muMATH is an invaluable tool for engineering 
and scientific applications involving lengthy, analyti- 
cal computations. It is also an ingenious teaching 
method for all levels of math from arithmetic to cal- 
culus, muMATH is implemented in muSIMP, a highly 
structured language for complex symbolic manipula- 
tion. muSIMP/muMATH Package, CP/M versions. 

$235/ $25 



CCI-TELNET VERSION 5: A communication Package 
which enables microcomputer users to communicate 
both with Large Mainframes and other microcom- 
puters. Extensive commands make it useful in many 
applications where communication between com- 
puters is necessary. Powerful terminal mode enabling 
user to save all data from a session on disk. Com- 
pletely CP/M compatible. Multiple communication 
protocols supported. Able to transfer files ir both 
directions without protocol where the other machine 
does not support any protocol. Extensive ON- 
SCREEN help. Source code provided. $149/815 



MICROPRO-WORD-STAR: Menu driven visual word 
processing system for use with standard terminals. 
Text formatting performed on screen. Facilities for text 
paginate, page number, justify, center and underscore 
User can print one document while simultaneously 
editing a second. Edit facilities include global search 
and replace. Read/Write to other text files, block 
move, etc. Requires CRT terminal with addressable 
cursor positioning. $445/840 



dealer (national/international) inquiries invited Send for FREE Catalogue 



The CPU SHOP 

TO ORDER CALL TOLL FREE 1-800-343-6522 

Massachusetts residents call (617)242-3361 

For detailed technical information, call 617/242-3361 

Hours: 10AM-6PM (EST) M-F(Sat. till 5) 

*TRS-80 is a Tandy Corporation Trademark 



5 Dexter Row, Dept. PC7M 
Charlestown, Massachusetts 02129 

Massachusetts residents add 
5% sales tax 

Quantities on some items are limited 
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JOIN 

RAYGAMCO 

NOW! 



WE HONOR VISA, MASTERCHARGE, BANKAMERICARD. TOLL FREE. EXCEPT CA 

Store Hours: Sat 10-6, Sun 12-4, Tu-Fri 11-8 800 - 854-6455 



RAYGAM, INC. 

6791 WESTMINSTER AVENUE WESTMINSTER, CA 92683 
TELEX 182274 (714) 891-2587 



City State Zip 

Computer (Brand Name) 

I would like information on (please specify system, part, accessory, book, program, etc.) 



By being a RAYGAMCO Member you receive substantial discounts on every item you 
purchase, including all hardware, software, accessories, even books and paper! You 
will also receive a monthly newsletter with all the latest available for your particular 
computer system, and much, much more — exclusive to RAYGAMCO Members only! 

All the famous brand names, including: 

APPLE Alpha Micro Soroc Lear Siegler 

ATARI Alpha Pro Hazeltine Shugart 

EXIDY/Sorcerer Cromemco Sektor Texas Instruments 

Kim/Commodore Xerox PET 



Here’s how to join. 

Fill out the information, and mail. That's all there is to it. Nothing to buy. 

I want to be a RAYGAMCO Computer Discount Club Member. Please send my 
RAYGAMCO Membership card to: 

Name 

Address 



Become a 
member of 
RAYGAMCO 
Computer 
Discount Club. 



BIG SAVINGS ON EVERY ITEM! 
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Housebreaking Error 



Dear Editor: 

Thank you for publishing my article 
“Housebreaking Your New Pet” in the 
April 1980 issue of PC. There is one 
small error in the program however. (It 
seems that Pet still isn’t housebroken!) 
On line 40, the last number in the DATA 
statement should be 128, not 168. 

As listed, the program will not 
bomb, but the result will appear to be 
some form of cipher text. The assembly 
routines are correct as listed, so that Pet 
monitor mode (SYS 1024) could be 
used to load in the hex code with no 
problems. 

John M. Nichols 
Chicago, IL 

Backgammon 

Gentlemen: 

Though far from being a fluent pro- 
grammer, I enjoy most of your program 
articles by rewriting them for my Atari 
800, then adding graphics, etc., and 
fooling with them until your next issue 
comes out. One game program in par- 
ticular has had my undivided attention 
for perhaps a little too long, however. 
In your February issue, William 
Lappen’s “Backgammon” has had me 
“RAM”ming my head against a rather 
hard piece of software. After adapting a 
number of the basic steps, and finally 
getting the program to run at all, it now 
has me completely baffled! 

Assuming a first roll in favor of the 
computer, it begins generating all 
moves and assigns them values, to 
completion. But, what all this has to 
do with what it moves is beyond me. It 
almost moves in a random fashion, 
save for the fact that it moves from 
points where it was! Mostly, though, it 
likes to bear off from anything higher 
than the four point (if you recall, its 
home board is 19-24, a long way off!). 
It also occasionally generates an extra 
man for me to contend with (16 men? 
17 men?), but eventually I'm sure lean 



FEEDBACK 




WORD 

PROCESSING 
How *> pie* asy&sm 
» moot your 



SOFTWARE 

Ready-to-njn 
applications for 
oflice and home 



PRINTERS 



Technology for 
today and tomorrow 



INCOME TAX 
PROGRAMS 

Preparing 1040s 
with your 

personal computer 



track that little bug down. 

Briefly, I changed lines 430-450 
from a “read” to assigned locations, 
rearranged the board to fit on a forty 
column screen, adapted the random 
function for the dice, changed lines 
4950, 5060 and 5070 to notation, and 
eliminated the score compiler. Other- 
wise the program stands as written. 

HELP!! 

What I would like to know is if there 
were any typo errors in the program 
listing, or am I missing the point some- 
where? 

Paul Dobosz 
Southington, CT 



Author s note: I must congratulate you 
on having the patience to translate and 
enter the program. The problems you 
mentioned have not appeared on my 
version of the game. Another reader 
has commented that occasionally the 
number of men on the board is in- 
creased. The problem was in lines 2340 
and 3500. Be sure that M(9) is loaded 
with the same number as is tested later. 

As for the computer's tendency to 
bear off from anywhere on the board, 
check lines 2840 to 2860 and 6880 to 
6960. These are the lines that tell the 
computer whether it can bear off. 

The randomness of the computer’s 
opening move is a puzzle to me. I have 
had no trouble with this. (You realize 
that the numbers printed are relative 
rankings of the possible moves and the 
computer should pick the largest 



value.) Check line 520 to be sure you 
are jumping to the proper line for the 
computer's move. 

If these aids do not help you solve 
your problems, try some error trapping. 
(Sprinkle PRINTs throughout the pro- 
gram to show the values of key vari- 
ables.) If you can isolate when the 
computer makes its own bizzarre 
moves, perhaps you can find the errors. 

— William Lappen 

More Than A Pet 

Dear Sir: 

I would like to tell you about myself 
and my situation. About two months 
ago I purchased my first computer. It 
was the Commodore Pet 2001, 16K, 
plus Commodore Model 2040 floppy 
disk drive and Commodore's Tractor 
Feed printer. This setup has totally 
changed the course of my life. 

Since birth thirty-five years ago I 
have been disabled with a muscle 
weakness. This malady has provided 
me enough muscular strength to feed 
myself, dial a touch tone phone and 
type a keyboard. Prior to the purchase 
of my Pet there was a limited choice of 
interests within my physical realm. 
Computers afford me the needed stim- 
uli which was missing. 

I now have an unending road of 
pursuit to look forward to. 

It is my hope that I can somehow get 
in touch with people doing work with 
the severely disabled and their specific 
needs. I would then be able to acquire 
information vital to progress in my 
search for an environment more con- 
ducive to my needs. Computer tech- 
nology represents my emergence as an 
outwardly productive person. If it were 
not for computer technology and the 
descending prices this letter, written 
with editing capabilities galore and 
effort-free printout, would have been 
impossible. 

Barry L. Giordano 
6035 Park Avenue 
Philadelphia, PA 19141 
(215)276-0696 
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FEEDBACK 



Payroll Correction 

Dear Editors: 

I enjoyed and am trying to make use 
of your Payroll Program (March 1980). 
However, line 610 was printed 
incorrectly. 

John Kwit 
Glendale, CA 

Author s note: Line 610 in my program 
was printed incorrectly, and should 
have read: 6 1 0 PRINT. — Donald Howe 

A Physician’s 
Office System 

Editors: 

As a practicing physician, I found 
myself bewildered by the world of 
computers. By studying computer lit- 
erature, reading computer publications 
and asking a lot of questions, I was able 
to replace my bewilderment with a 
limited appreciation of the computer 
applications in a physician's office. 
Working with LaSalle Computing, 
Inc. , I now have a very functional com- 
puterized office system. 

The hardware consists of: Radio 
Shack CPU with 32K, Radio Shack 
interface with 16K, Radio Shack CRT, 
Radio Shack Line Printer I, two Lobo 
floppy disk drives, one Pertec D 1400 
hard disk drive, and one cameo 
controller. 

The floppy drives are used as a back- 
up for the operating system (Series 3). 
The hard disk drive is interfaced with 
the whole system to provide ten mega- 
bytes of on-line capability. This system 
can be alternatively interfaced with a 
Control Data Hawk drive (10 mega- 
bytes). 

The software is an up and running 
system that performs the following 
tasks: creates and maintains patient and 
master file; sorts patient file alphabet- 
ically; prints listing of all patients’ 
names; creates and maintains a proce- 
dure master file; sorts procedure master 
file; prints listing of all procedure 
codes; creates and maintains patient 
billing records; prints report of office 
invoices; prints report of Medicare 
forms; prints report of Blue Shield 



forms; alphabetizes patient name list; 
maintains daily patient list. 

This physician/patient billing system 
prints on existing Medicare forms and 
existing Blue Shield forms that are fan- 
fold types. These forms are not a super- 
bill, but rather use the generally avail- 
able Medicare and Blue Shield forms. 

In addition, a further feature is a 
general accounting system which also 
performs bank reconciliation as well as 
printing checks with the vendor address 
for use with clear window envelopes. 

What I find to be a very useful por- 
tion of the system is a literature refer- 
ence program which will: create and 
maintain subject master file; sort sub- 
ject alphabetically; list subjects in an 
alphabetical order; list subject file in 
numerical order; create a literature ref- 
erence file and produce reports of all or 
some literature references under that 
particular subject heading; copy data 
files from the menu screen; permit 
cross indexing of literature references. 

Further information on the program 
can be obtained by writing to LaSalle 
Computing, Inc., P.O. Box 116, Blue 
Bell, PA 19422; (215) 275-7058. 

David Prager, M.D. 

Allentown, PA 

Sorcerer Software 

To the Editor: 

Being the owner of a fine computer 
like the Sorcerer, I find it difficult to 
obtain much utility software. The 
Exidy Sorcerer does not get much sup- 
port. As a technician, I know that the 
hardware in this well-made machine is 
superior to many others, but as a pro- 
grammer I can't write much more than 
some simple games. So, like many 
frustrated users of this machine, I suffer 
also. But, I refuse to give it up because 
of that! 

There is a fine word processor pro- 
gram available from RGR Software 
Co., called The Poor Man's Word 
Processor, for about $21. It's worth 
much more. They also have a data base 
maintenance program that is very good. 
RGR has games, home financial, and a 
users software swap. The address is 
RGR Software, 623 Medill Ave., 
Lancaster, OH 43130. 

Want more super graphic games and 
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CAI programs? Write Stayley's Soft- 
ware. Jim Stay ley writes good stuff! 
The address is Stayley’s Sorcerer Soft- 
ware, 22 Staman Ct., Layfayette, IN 
47905. 

Jack MacGrath 
Billerica, MA 

A Great 
Combination 

Dear Editors: 

I want to commend you on two arti- 
cles in your April 1980 issue: “Basic 
Typist” and "‘Product Close-Up”. Iam 
writing this letter using both Basic 
Typist and Keyplus. I have found the 
combination of these programs to be 
invaluable. 

I would also like to commend SJW 
Inc. for the fast service that I received 
in answering my questions and delivery 
of my Keyplus tape. In both cases only 
three days lapsed between replies. I still 
can't believe that, but let’s hope more 
fast service can be found. 

I have the video upper-lower mod 
and can attest to the fact that Keyplus 
works just fine in both command mode 
and keyboard mode. Another good fea- 
ture which I like is the ability to change 
any mode even in the middle of editing 
a line. Let’s hope SJW Inc. can keep up 
the excellent work. The documentation 
is accurate and simple enough for any- 
one to understand and I have not en- 
countered any problems in loading or 
using it. 

When using the Basic Typist and 
Keyplus you can modify the Basic 
Typist as follows: Delete lines 2029 to 
2040. Keyplus has already converted 
upper-lower case letters for you. 

Mark Wehmhoefer 
Chicago, IL 

Delayed at the Gate 

Dear Editor: 

I understand Basic but am not adept 
at speaking it in mathematical terms, so 
I was able to translate the “Off to the 
Races" program (January 1980) to dis- 
play properly on my TRS-80 machine. 
However, I was unable to fathom the 



data manipulation statements and con- 
tinue to get error messages — specif- 
ically in lines 270, 330, 480, 800 and 
810. 

Whether changing these lines to 
TRS-80 Basic will result in bugs farther 
along, I don't know. Can you help? 

Bernard A. Jenson 
Princeton, NJ 

Author s note: Translating a program 
from one dialect of Basic to another is 
often difficult. Let me offer a few sug- 
gestions and explanations to help 
smooth the way. 

OTTER was written in North Star 
Basic. It differs from some Basics in 
string handling and in multiple state- 
ment lines which start with a condi- 
tional (such as line 630). 

Contrary to NS Basic, some Basics 
execute common line statements which 
start with a conditional only if the 
condition is true. For those, line 630 
should be replaced with: 

630 IF T(l)>M THEN W= 1:M = T (1) 

N$ is the name string for the entries. 
It is a string of length 270 for at most 15 
names in fields of length 18. N$(37,64) 
corresponds to the substring of N$ con- 
sisting of its 37th to 64th characters, the 
name of the third entry. In some Basics 
it would be written MID$(N$,37,64). 
For those Basics which allow string 
arrays, DIMension N$ to 15 with 
enough space CLEARed. Then access- 
ing each horse's name becomes 
simple (270 would end with N$(I)=H$ 
and 330 becomes H$=N$(I)). 

Line 480 uses the SQuare RooT 
function. Replace SQRT with SQR in 
some Basics. 

Other problems in translating Basics 
usually involve PRINTing and format- 
ting statements. “!" is an abbreviation 
of “PRINT" and “%2I" is a formatting 
statement written “USING ##" in 
TRS-80 Basic. For my system, “!#P" 
is “PRINT" to screen if P=0 or to the 
printer if P=2. 

It has also come to my attention that 
some racing forms do not list the track 
variant (variance) in the past perform- 
ances. I would hope that they compen- 
sate some way since a horse's speed or 
speed rating for a particular race at a 
particular track is worthless unless it 
takes into consideration track condition 
parameters. — Rinaldo F. Frisco 



FEEDBACK 



Speed Up Your Programs 



Dear Sir: 

A recent computer show provided 
the opportunity to compare several 
desktop computers for computational 
speed. My particular interest is in Four- 
ier signal processing, so the following 
one line program was used: 

FORZ=l TO 1000:Y=SIN(Z):NEXTZ 
This syntax is Microsoft Basic. 
Naturally some machines require a 
slightly different syntax. Times to run 
the program were as follows: 

Time 

(seconds) Make/Model 

1 34 Texas Instruments 99/4 

1 20 Hewlett-Packard 982 1 

78 Atari 800 

58 Hewlett-Packard 85 

55 Tektronix 405 1 

30 Radio Shack TRS-80 

Level II 

30 Commodore 200 1 

27 Apple II-Applesoft 

1 9 Hewlett-Packard 9825 

6 Apple II/Califomia Com- 

puter Systems 781 IB 

The 78 1 1 B is an arithmetic processor 
which uses the AM9511 math chip. 
The program was totally transparent 
and looked exactly like the example 
above. Now if only this board were 
available for my Commodore machine! 

Robert G. Huenemann 
San Bruno, CA 



Processor Unit speeds execution of 
Applesoft programs. The unit plugs 
into an Apple II expansion slot. Price is 
$299.96. The company’s address is 
250 Caribbean Dr., Sunnyvale, CA 
94086; (408) 734-581 1. — D. W. 



. . .still sorting. . . 

Dear Sir: 

Jay Parsons (Feedback, April) is 
correct in stating that both the Shell sort 
and quicksort run much faster than the 
bubble sort. However, in applications 
where short lists are being sorted this 
speed difference looses its signifi- 
cance, especially if the data to be sorted 
are first entered at human typing speed 
and then printed at the speed of the 
printer. 

An example of a situation where 
sorting speed is utterly irrelevant is my 
checkbook program. I usually enter 
less than ten checks at a time, sort them 
using a bubble sort, merge them into 
the pre-existing checkbook, and print 
out the checkbook. Computing time is 
essentially zero in comparison to typing 
and printing time. 

On the other hand, there is no doubt 
that for any but the shortest of lists, the 
bubble sort can be too slow. In other 
words, different tools are required for 
different purposes. 



Editors note: California Computer Mohamed el Lozy, M.D. 
Systems’ Model 781 IB Arithmetic Boston, M A 



Revision of Merging on the Pet 

Dear Editors: 

Here is a revision of the “Merging on 
the Pet" program in the January 1980 Ronald L. Servoss 
issue for the new ROMs. Sylva, NC 



63001 OPEN 1,1,0 

63002 POKE 174,1^ P0KE593 , 1 : P0KE603 , 1 P0KE6 13,96 PRINT ” SMBT 
63803 GET# 1 , A$ : I F < ST > RND64THENCL0SE 1 : POKE 158,0- GOTO63009 . 

63004 I F At=CHR$ < 1 3 > THEN63086 

63005 B$=B $+RS GOT 063083 

63006 I FVRL < B$ > =0THENB*= " " = GOTO63003 



V = CLEAR THE SCREEN 
Q = CURSOR DOWN X 2 

S r O^So*. 



63007 PRINTB$; • B*=" 11 : PRINT : PRINT ,, RUN63002" : PRINT "SP 

63008 POKE 1 58 3 : F0Rs‘= 1 T03 : P0KE622+X , 1 3 NEXT = END 

63009 R*="RUN 6^0i0" : INPUT" RNV MORE FILES'S R$ ■ IFLEFT$<fl*, 1 >="Y"THEN63001 



63010 V=0 

63811 PR I NT "raW" PR I NT 1 "630 10 V=6"F0R X-1T06 : PRINTX+Y+63000 : NEXT 



63812 P0KE622, 9 PRINTR*; ■ F0RX=1T09 = P0KE158+X, 13 : NEXT END 
READY. 
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The VP-111 hobby computer: 
Start programming for only $ 99. 




New! VP-111 
Microcomputer .... 
Assembled* and tested. 



*99. 



Features: 

• RCA 1802 Microprocessor. 

• 1 K Bytes static RAM. 

Expandable on-board to 4K. 

Expandable to 32K Bytes total. 

• 51 2 Byte ROM operating system. 

• CHIP-8 interpretive language or 
machine language programmable. 

• Hexidecimal keypad. 

• Audio tone generator. 

• Single 5-volt operation. 

• Video output to monitor or modulator. 

• Cassette interface— 1 00 Bytes/sec. 

• Instruction Manual with 5 video game 
listings, schematics, CHIP-8, much more! 



Ideal for low-cost control applications. 



Expandable to full VP-71 1 capability with 
VP-1 14 Kit. 



‘User need only connect cables (included), a 
5-volt power supply and speaker. 



New low price! $^QQ 

VP-711, only !*/%/■ 

Completely assembled 
and tested. 

All the features of the VP-1 1 1 plus: 

• A total of 2K Bytes static RAM. 

• Power supply. 

• 8 Bit input port. 

• 8 Bit output port. 

• I/O port connector. 

• System expansion connector. 

• Built-in speaker. 

• Plastic cover. 

Three comprehensive manuals: 

• Instruction Manual— 20 video game 
listings, schematics, much more. 

• User’s Guide— operating instructions 
and CHIP-8 for the beginner. 

• RCA 1 802 User’s Manual (MPM- 

201 B)— complete 1 802 reference guide. 

RCJI 



Add computer power a 
board at a time. 

With easy-to-buy options, the versatile 
RCA hobby computer means even 
more excitement. More challenges in 
graphics, games and control functions. 
For everyone, from youngster to serious 
hobbyist. 

Built around an RCA COSMAC micro- 
processor, our hobby computer is easy 
to program and operate. Powerful 
CHIP-8 interpretive language gets you 
into programming the first evening. 
Complete documentation provided. 

Send the coupon now... 

Complete the coupon below and mail to: 
RCA Microcomputer Customer Service, 
New Holland Ave., Lancaster, PA 1 7604. 

Or call toll free (800) 233-0094 

to place your Master Charge or VISA 
credit card order. In Pennsylvania, 
call (71 7) 397-7661 , extension 31 79. 



Please send me the items indicated. 

□ VP-111 New low cost Microcomputer 

(See description above) $ 99 

□ VP-114 Expansion Kit for VP-1 1 1 —Includes 

3K RAM, I / O Port and connectors $ 76 

□ VP-711 The original VIP Microcomputer 

(See description above) $199 

□ VP-44 RAM On-Board Expansion Kit— Four 

21 1 4 RAM ICs. Expands VP-71 1 
memory to 4K Bytes $ 36 

□ VP-590 Color Board— Adds color. Four 

background and eight 
foregroundcolors $ 69 

□ VP-595 Simple Sound Board— Provides 

256 programmable frequencies. For 
simple music or sound effects. 

Includes speaker $ 30 

□ VP-550 Super Sound Board— T urns 

VP-1 11/711 into a music synthesizer! 
Two independent sound channels. 
Outputs to audio $ 49 

□ VP-551 4-Channel Super Sound— Includes 

VP-576 and demo cassette. Requires 
VP-550 and 4K RAM $ 74 

□ VP-570 Memory Expansion Board- 

Plug-in 4K RAM memory $ 95 

□ VP-580 Auxiliary Keypad— Adds two-player 

interactive capability. Connects 
to VP-590 or VP-585 $ 20 

□ VP-585 Keypad Interface Board— Interfaces 

two VP-580 Auxiliary Keypads 

to VP-1 11/711 $ 15 

□ VP-560 EPROM Board— Interfaces two 

271 6 EPROMS to VP-1 11/711 . . $ 34 



□ VP-565 EPROM Programmer Board- 

Programs 271 6 EPROMs. 

With software $ 99 

□ VP-575 Expansion Board— Provides 4 

buffered and one unbuffered 
expansion sockets $ 59 

□ VP-576 Two-Board Expander— Allows 

use of 2 Accessory Boards in either 
I/O or Expansion Socket $ 20 

□ VP-700 Tiny BASIC ROM Board-BASIC 

code stored in 4K of ROM $ 39 

□ VP-701 Floating point BASIC for 

VP-71 1 on cassette. Requires 16K 
Bytes RAM (avail. 7/80) $ 49 

□ VP-710 Game Manual— Listing for 16 

exciting games $ 10 

□ VP-720 Game Manual-ll— More games . . $ 15 



ASCII keyboards. 

□ VP-601 Keyboard— 128-character ASCII 

encoded alphanumeric 8- bit parallel 



output $ 69 

□ VP-606 Keyboard— Same as VP-601 . 

Asynchronous serial output $ 99 

□ VP-611 Keyboard— Same as VP-601 plus 

16-key numeric keypad $ 89 

□ VP-616 Keyboard— Same as VP-606 plus 

1 6-key numeric keypad $119 

□ VP-620 Cable— Connects VP-601 /61 1 to 

VP-111/711 $ 20 

□ VP-623 Cable— Unterminated for 

VP-601 /611 $ 20 

□ VP-626 Connector— Male "D” mates to 

VP-606/616 $ 7 



Enclosed is $ for items checked plus shipping & handling charge of $3.00. 

Add your state and local taxes $ Total enclosed $ 

I enclose □ check or □ money order. Or charge my □ VISA □ Master Charge. 

Credit card account No. 

Master Charge Interbank No. Expiration date 

Signature (required for credit orders): 

Name (please type or print): 

Street address: City: 

State & Zip: Telephone^ ) 

Make checks payable to RCA Corp. Prices and specifications are subject to change without notice. 
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Computer Center for Teachers 




Educators all over the country 
are realizing the potential of 
computers in education. And 
working toward the goal of ex- 
panding microcomputer use in 
the schools are the Technical 
Education Research Centers, 

Inc., (TERC), which recently 
opened the Computer Resource 
Center (CRC) at their headquart- 
ers in Cambridge, MA. CRC is 
available to help schools use 
microcomputers for instruction- 
al and administrative purposes. 

Presently, CRC is equipped 
with seven Compucolors, an 
Apple, two OSI machines, an 
AIM, ten KIMs and an S-100 
system. 

Teachers, alone or with small 
groups of students, are invited to 
make appointments to come in 
and use the computers for an 
hourly charge. Drop-in days are 
also planned. 

CRC plans to maintain a data 
base of educational programs for 
microcomputers. This education- 
al exchange will allow teachers to 
locate software for their needs, 
submit their own software or 
evaluate programs. 

First, a teacher must subscribe 
to the data base with a one-time 
charge of about $75. To com- 
municate with the data base, a 
teacher would either use a tele- 
type or a microcomputer with a 
modem. After a teacher is con- 
nected to the base, a charge of 
$15 per hour during prime time, 
or $2.75 per hour during off 
hours (nights and weekends) is 
required. 

If a teacher wants to submit a 
program or evaluate one the pro- 
cedure is similar. Contributors of 
programs will receive a royalty 
each time the program is sold by 
downloading into another user's 
machine. Small honorariums will 
also be offered for program 
evaluations. 



Vendors can also list descrip- 
tions of their programs in the 
data base. The actual programs 
will be kept at CRC. 

All this information — the 
contributed programs, evalua- 
tions and lists — plus other edu- 
cational software, will soon be 
placed on line, allowing teachers 
with microcomputers and a mo- 
dem to locate the material they 
need. 

“We are collecting listings of 
educational software now," said 
Ms. Adeline Naiman, Managing 
Director of TERC. “I hope we'll 
also collect teacher generated 
software, then have other 
teachers evalute it, evaluate it 
ourselves and try to provide at 
least a listing on a national data 
base that anybody can buy into 
and ultimately provide the pro- 



grams themselves." 

Ms. Naiman said CRC also of- 
fers a wide range of workshops 
for teachers. Five standard work- 
shops now set up can be modi- 
fied to fit other needs. Teachers 
can schedule a workshop at their 
schools or come to Harvard 
Square in Cambridge or other 
sites. 

All these workshops involve 
“hands-on" practice. Titles are: 
“Microcomputers in Teaching," 
“Microcomputer Hardware 
Survey," “The Microcomputer in 
the Laboratory," “Modern Elec- 
tronics," and “Digital Design." 

TERC, incorporated in 1965, 
is an independent, publicly 
owned, nonprofit corporation. 
Besides the computer center, it 
offers services in education and 
guidance for the handicapped, 
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for special needs students, for 
adults contemplating a career 
change, for women pursuing jobs 
in traditionally male dominated 
fields, and for educators and 
scientists concerned with elec- 


tronics instrumentation and 
microcomputers. There are three 
major TERC centers in the 
country, one in Waco, TX, and 
two in Cambridge, MA. 

CRC welcomes participation 


from local teachers and school 
personnel. Write CRC/TERC at 
8 Eliot Street, Cambridge, MA 
02138; or call (617) 547-3890. 

— by Marjorie J. Morse 


Boston Marathon Ru 

Runners in the 1980 Boston 
Marathon were shorter, lighter 
and older than their counterparts 
in the 1979 event. As a group, 
the runners also had less stamina 
and slower times than those who 
computed in last year’s race, 
though women in general did 
markedly better than they did 
the year before. 

A Honeywell Level 6 comput- 
er compiled these statistics and 
scored and timed the race right 
at the finish line. Here’s a quick 
rundown of the data: 

In 1979, the “typical" runner 


nners Getting Slower 

was 5' 9", weighed 147.6 pounds 
and was 34.5 years old. In 1980, 
he “shrank" 1 inch to 5-foot-8, 
lost one-tenth pound to 147.5, 
and aged three-tenths of a year 
to 34.8. Perhaps as a result of 
simultaneously getting smaller 
and older, the average runner 
took 1 minute 25 seconds longer 
to complete the race (up from 
3:01:15 in ’79 to 3:02:40 in 
’80). And all along, everyone 
thought it was the heat that was 
causing the slower times. 

In 1979, according to Honey- 
well, three out of every four of- 


ficial starters completed the race 
(4958 out of 7910, or 75.3 per- 
cent). In 1980, the percentage of 
runners completing the race fell 
off significantly (3663 out of 
5471, or 66.9 percent). 

In 1979, men as a group com- 
pleted the course in 3:00:28; in 
1980, 2112 men under 40 ran 
the course in an average time of 
2:55:10, while 1315 masters 
(over 40) averaged 3:12:34 for 
a combined average time of 
3:01:50 for males. 

Women, on the other hand, 
bettered their 1979 time of 
3:16:25 to 3:13:33, although 
fewer of them entered and com- 
pleted the race. In 1979, 296 out 
of 521 female entrants crossed 
the finish line (56.8 percent); in 
1980, 236 out of 456 (51.7 per- 
cent) finished the course. 

Interestingly enough, the Hon- 
eywell computer reveals that the 
age group with the largest contin- 
gent of runners continues to be 
the 40 to 44 group. In 1979, 

1636 of them entered the race 
and 1197 completed it (73.1 per- 
cent). In 1980, 1189 started 
from Hopkinton and 815 of the 
them crossed the line (68.5 per- 
cent). For the last two years, 
the 40 to 44 age group accounted 
for approximately 22 percent of 
all entrants and for more than 20 
percent of all finishers. 

Finally, the new, more strin- 
gent qualifying times (2:50:00 
for men, 3: 10:00 for masters and 
3:20:00 for women) appear to 
pose a problem only for the first 
two groups. Women, as a whole, 
bettered their cutoff times by 5 
minutes 23 seconds, while men 
under 40 averaged 5 minutes 10 
seconds over the prescribed time 
and masters averaged 2 minutes 
34 seconds over theirs. 


Printer Speeds Lab P 

Clients of Statlabs, Inc., a Wichita 
based independent clinical labora- 
tory, don’t have to wait as long 
for test results now. The Lab is 
using Texas Instruments Omni 
800 Model 810 Receive-Only 
Printer to transmit results to 
doctors quickly and accurately. 

Headquartered in Wichita, KS, 
with branches in Lincoln, NB, 
and Kansas City, MO, Statlabs 
performs laboratory procedures 
for doctors, clinics and hospitals. 
“We offer a full range of clinical 
procedures, including blood tests, 
urine tests and cultures," said 
Charles E. Lowry, Vice President 
of Statlabs. “Because we service 
such a large geographical area 
and offer a wide spectrum of 
tests, we need an efficient sys- 
tem for delivering test results to 
the client. We also need to pro- 
vide results in written form, as 
documentation for patients’ 
files," Lowry added. 

“Our company sells a service, 
the analysis of lab tests. The key 


Lesults to Doctors 

to that service is the transmission 
of test results," Lowry said. 

Statlabs provides the 810 
Printer for doctors or hospitals 
using the service to process lab 
work. The client sends lab sam- 
ples by courier or express mail, 
then Statlabs analyzes the sam- 
ples and transmits the results to 
the 810 in the customer's office. 

Many of Statlabs’ clients pre- 
fer to locate the 810 right at a 
courier’s office. Then the test re- 
ports can be transmitted during 
the night for delivery to the cli- 
ent the next morning. 

“We run many tests, and be- 
cause of different medical spec- 
ialties, doctors require a wide 
variety of reporting forms," 
Lowry explained. The 810 can 
accommodate multiple-part 
forms and different widths and 
thicknesses of paper. And, the 
person receiving the report can 
adjust the thickness control, for 
instance, while the printer is 
operating. 
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Antiskid Brake Control System 



Microcomputers helped de- 
velop a new antiskid brake 
control system designed to main- 
tain vehicle stability and steer- 
ability during an emergency 
braking on any road surface. 

The new system, developed by 
Robert Bosch GMBH of West 
Germany with American Micro- 
systems, Inc., Computers, de- 
pends on the fact that, with the 
brakes applied, only a rolling 
wheel provides lateral support at 
optimum deceleration. A locked 
wheel cannot transmit lateral 
forces; therefore a car with 



Computer Nanny 

Four-year-old Gemma Zawadski 
has a computer for a nanny. 

Instead of an apron and a cozy 
lap, it has tape drives and circuit- 
ry and typewriter keys. 

Instead of a nickname like 
Nana, it’s called Orca III. But it 
soothes Gemma when she cries, 
tells her a bedtime story and will 
teach her English, French and 
German when she starts to talk. 

“About the only thing it can't 
do is change the baby's diapers," 
said Gemma’s father, Richard 
Zawadski, the 28-year-old com- 
puter consultant who built Orca 
III. 

Orca 1 1 1 is more than just a 
nanny. Zawadski has programmed 
the electronic whiz to do house- 
hold chores as well — turning on 
lights, opening the garage door 
and guarding the house against 
burglars. 

“Pretty soon I can just ring up 
from work and have it switch on 
the microwave oven before I 
come home," he boasted. 

Last November, for $6600, 
Zawadski bought the American 
ITT 2020 home computer to use 
in his business and educational 
work. The baby arrived on Feb. 
29. 

Reprinted with permission from the 
Associated Press, 50 Rockefeller Plaza, 
New York, NY 10020. 



locked wheels loses steering con- 
trol and stability and may skid 
or spin around. That is why 
safety engineers advise drivers to 
pump the brakes when stopping 
on wet roads, ice or snow. 

To prevent the wheels from 
locking, the Bosch antiskid brake 
control system — ABS — con- 
tinously senses whether any of 
the wheels tend to lock. The 
wheel signals are processed by a 
set of tiny metal-oxide-silicon 
microcomputers developed by 
AMI. 

The electronic control box ac- 
tivates the hydraulic unit, mo- 
dulating the brake pressure with 
electromagnetic valves. 

This action simulates pumping 
an ordinary brake, but the com- 
puter can “pump" much faster 
than a driver. And the system 
modulates the pressure in the 
wheel brake cylinders individual- 
ly to obtain optimum stability 
and deceleration. 

Three custom-designed micro- 
computers are used. One watches 



over the sensors on the right 
front wheel and the drive shaft, 
one over the left front wheel and 
drive shaft and the third functions 
as a safety monitor, to make sure 
the system is working properly. 

If a system malfunction occurs, 
the monitor circuit returns the 
brakes to normal operation and 
flashes a warning on a dashboard 
indicator. 

Bosch and AMI developed the 
microcomputers by forming a 
team composed of AMI integ- 
rated circuit designers and Bosch 
automotive engineers. 

On test tracks and highways in 
West Germany, ABS has safely 
stopped cars on all kinds of road 
surfaces, on straight roads and 
curves, said the company. On dry 
roads it also reduces the wear 
during emergency braking. 

The Bosch antiskid brake sys- 
tem is currently offered as an op- 
tion on a number of European 
cars. It is also being adapted for 
use on trucks and other vehicles, 
said the company. 
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Low- and High- Altitude Balloons Help Scientists 



Imagine studying air pollution by 
floating along in the midst of it 
in a balloon. Or locating black 
holes in space with balloons. 
Scientists are using balloons, de- 
signed with the help of comput- 
ers, for these and other projects. 

Design engineers at Minne- 
apolis-based Winzen Interna- 
tional created a low-altitude bal- 
loon that floats over cities at the 
same speed, and thus, in the 
same air mass, as pollution fumes 
and particles. Scientists ride in 
the gondola and run chemical 
tests to compare air composition 
in different cities. 



The Amateur Radio Research 
and Development Corporation 
(AM RAD) has activated the 
Handicapped Educational Ex- 
change (HEX), a computer infor- 
mation storage and retrieval sys- 
tem which is available by dialing 
(703) 281-2222. 

HEX will provide up-to-date 
information on the education of, 
and communications with, the 
handicapped. HEX is supported 
by a federal grant from the Bur- 
eau of Education for the Handi- 
capped (BEH). Messages entered 
into HEX should be related to: 
the handicapped, education or 



A computer-assisted English-to- 
Arabic translation capability was 
unveiled at Weidner Communica- 
tions, Inc., in a demonstration 
for Saudi Arabian officials and 
businessmen. 

The complexities of Arabic 
made computer translation ap- 
pear impossible to most language 
experts, said a Weidner spokes- 
person. One reason is that each 
of the 27 letters of the Arabic 



To properly balance all the de- 
sign variables involved in building 
the balloon, Winzen engineers 
used the resources at United 
Computing Systems, Kansas 
City, MO. United Computing of- 
fers both software and services, 
providing users access to four 
giant computer complexes as 
well as the Cray-1 supercomput- 
er. UCS emphasizes services to 
large scale scientific and engineer- 
ing projects. 

“There are numerous factors 
which must be considered when 
designing high-altitude balloons," 
said Jean Nelson, vice president 



communications, and microcom- 
puter technology. 

To communicate with HEX, 
you’ll need either a 110- or 300- 
baud ASCII or 60-words-per-min- 
ute Baudot terminal. The ASCII 
terminal may be either a com- 
puter or a printer equipped with 
a Bell 103 or 113 originate mo- 
dem. The Baudot terminal, used 
for communication by the deaf, 
uses a Weitbrecht modem. The 
same telephone number will be 
used for either type of terminal. 

AMRAD’s address is 1524 
Springvale Ave., McLean, VA 
22101, (703) 356-8918. 



alphabet can have up to four dif- 
ferent character forms. And the 
four positions of each letter com- 
plicate it more. 

The translation system can 
produce unedited or raw text at 
speeds up to 14,000 words per 
hour. It utilizes the skills of a 
professional translator to pro- 
duce high-quality, finished text 
at rates up to 2000 words per 
hour. 



of engineering at Winzen. 

“Design engineers must con- 
sider the function of a balloon, 
and coordinate its weight and 
volume to meet the requirements 
of the payload and the altitude 
at which it will function. To con- 
trol flight operation, the ballast 
and valving must also be calcu- 
lated," he noted. These factors 
determine the size, shape and de- 
tailed design of each balloon. 

Winzen manufactures balloons 
ranging in size from 1000 to 
70,000,000 cubic feet. The walls 
of a balloon, which are made up 
of synthetic material, can be as 
thin as 0.35 mil. Balloons with 
these types of specifications 
must be designed to carry thou- 
sands of pounds into the strato- 
sphere, Nelson said. 

While high-altitude balloons 
are used for everything from 
weather forecasting to aerial 
sports, Winzen designs them 
mainly for scientific purposes. 
Recently balloon projects in- 
clude measuring the atmosphere 
and observing cosmic rays. “In 
a particularly exciting space 
project," Nelson said, “scien- 
tists are using Winzen balloons 
to locate black holes in space." 
Black holes are areas with such 
high levels of gravity that every- 
thing, including light, can be 
pulled into them, he explained. 

Winzen balloons are also used 
for satellite communications de- 
velopment. To test the strength 
of the space instruments, they 
are carried to high altitudes and 
dropped to simulate re-entry 
into the earth’s atmosphere. 

Advantages of using balloons, 
according to Nelson, are their 
relatively low cost, ability to 
carry heavy payloads, and the 
fact that the equipment used 
can be recovered, an important 
requirement for scientific testing. 

Winzen International not only 
uses United Computing comput- 
ers to design balloons, but also 
for accounting and project con- 
trol information. 



Exchange for the Handicapped 



English-to- Arabic Translations 



RANDOM ACCESS 



ft ft ^ Announcements ^ ft ft 



Educational Funding 

A handbook to help educa- 
tional institutions identify 
sources of financial support — 
enabling acquisition and use of 
microcomputer technology for 
instruction — has been published 
by Bell & Howell's Audio-Visual 
Products Division, Chicago. 

Titled “Funding Report for 
Microcomputers," the 44-page 
publication is the result of Bell 
& Howell contact with officials 
of eight federal agencies and the 
Department of Education in all 
50 states. The publication pro- 
vides information about federal 
programs that can be used to 
acquire microcomputer hard- 
ware and courseware for class- 
room use. Abstracts of 19 fed- 
eral programs list the agency 
responsible for administration 
of the funds, program objectives, 
uses for which the funds can be 
expended, qualifications, pro- 
posal deadlines, total funds avail- 
able, size of average award, and 
appropriate contact for more 
information. 

Special sections contain guide- 
lines for the educator on how to 
write effective and successful 
proposals. The publication also 
lists addresses and phone num- 
bers of the 10 regional HEW 
offices and state-level contacts 
for information and assistance 
with federal programs. 

The report is available from 
local Bell & Howell dealers or 
from Bell & Howell Audio- 
Visual Products Division, 7100 
N. McCormick Road, Chicago, 

I L 60645. 

Three Shows 

Three business and home com- 
puter shows for end-users will be 
held in Washington D.C., Chicago 
and Boston. The shows, pro- 
duced by National Computer 
Shows, feature small and me- 
dium-sized business systems, 
scientific and engineering com- 



puters, microcomputers and elec- 
tro-technology. 

The Mid-Atlantic Business & 
Home Computer Show is sched- 
uled for September 18-21, 1980, 
at the D.C. Armory/Starplex, 
Washington, D.C. The Mid-West 
Business & Home Computer 
Show will be presented at 
McCormick Place, Chicago, IL, 
October 16-19, 1980. The North- 
east Business & Home Computer 
Show will be held at Hynes Audi- 
torium/Prudential, Boston, MA, 
November 20-23, 1980. 

Show hours are Thursday 
through Saturday, 11 a.m. to 
9 p.m. and Sunday 11 a.m. to 
6 p.m. General adult admission 
is $5. For more information con- 
tact National Computer Shows, 
P.O. Box 678, Brookline, MA 
02147; (617) 524-4547. 

Astrology 

Computerize Astrologers Now 
Development Organization 
(CANDO) has been formed to de- 
velop computer awareness among 
astrologers. Proposed projects 
include educational programs, 
software development, informa- 
tion and data exchange, and an 
international newsletter. CAN- 
DO meets the first Sunday of each 
month at 2 p.m. at the New 
York Astrology Center, 127 
Madison Ave., New York, NY 
10016, contact Henry Wein- 
garten; (212) 679-5676. 

Education Conference 

Western Educational Comput- 
ing Conference will be held in 
San Diego, CA, November 20-21, 
1980. Its theme, “Educational 
Computing in the ’80s”, will fea- 
ture papers and seminars on the 
use of computing in higher edu- 
cation for instruction, adminis- 
tration and research. Luncheon 
speakers will be Capt. Grace 
Hopper, USN, and Bernard 
Luscombe, President, Coastline 
College. For further information 



contact Ron Langley, Director, 
Computer Center, California 
State University, Long Beach, 
1250 Bellflower Blvd., Long 
Beach, CA 90840; (213) 
498-5459. 

Forth Dimensions 
Expands 

As the computer language 
Forth enters its second decade, 
the Forth Interest Group has 
expanded its newsletter Forth 
Dimensions. Now in a bound, 
journal form, the newsletter 
offers Forth-related events from 
around the world, with technical 
and historical articles. 

Membership and a six issue 
subscription to Forth Dimen- 
sions are $12 in USA, Canada 
and Mexico, overseas by air is 
$15. Issues 1 through 6 are 
available as a set for $6 (do- 
mestic) or $7 overseas. New 
members will automatically re- 
ceive all issues, beginning with 
Number 7. Write to Forth Inter- 
est Group, P.O. Box 1105, San 
Carlos, CA 94070. 

Health Newsletter 

Data Bits is a monthly news- 
letter for health planners, pub- 
lished by Happenney Associates. 
This newsletter aims to coordin- 
ate nationwide the data and 
automation efforts of health 
planners within the 205 health 
systems agencies (HSAs) and 51 
state health planning and devel- 
opment agencies (SHPDAs). It 
examines technological advances 
in automated data processing 
which may affect health plan- 
ners. Initially it should help serve 
as a base of information for 
health planners making decisions 
about automating their data anal- 
ysis, plans development and ad- 
ministrative functions. Items of 
interest regarding happenings at 
the federal level are provided as 
well as information regarding 
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current activities of HSAs and 
SHPDAs, said Hapenney. 

Articles for publication are 
welcomed as are letters and com- 
ments from readers. Such con- 
tributions should be received by 
the tenth of the month preced- 
ing publication. Subscriptions are 
available at $60 per year with 
special rates for HSAs and 
SHPDAs. Single issues are avail- 
able for $5 per copy. For further 
information, contact Pam Rubin- 
stein, Assistant to the Editor, 

Box 1076, Columbia, MD 21044; 
(301) 596-0874. 

International Apple 

The International Apple Core 
is a non-profit independent 
organization acting as the parent 
organization for local Apple 
Computer user groups. Member- 
ship is not open to individuals, 
although they may subscribe to 
the IAC quarterly publication. 
The organization, a data center, 
offers information on hardware, 
software, application notes and 
programming tips to member 
groups. Member groups can 
access and contribute to the 
software library made avail- 
able to IAC. For more informa- 
tion contact the International 
Apple Core, P.O. Box 976, Daly 
City, CA 94017. 

London Club 

Several London computer 
clubs have formed the Associa- 
tion of London Computer Clubs. 
The main function of this asso- 
ciation is to coordinate activities 
in the London area. The first 
major event is a computer fair 
to be held on July 11-12. The 
show hopes to give small, local 
retailers a chance to exhibit 
their products and also hopes 
to attract hobbyists, educa- 
tional users and local business- 
men. For more information con- 
tact the North London Hobby 
Computer Club, Polytechnic of 
North London, Holloway, 

London N7 8DB, tel. 01-607- 
2789; telex 25228. 



Psychiatry /Psychology 

Computers in Psychiatry /Psy- 
chology is a bimonthly newsletter 
for professionals interested in the 
use of computers in psychiatry 
and clinical psychology. Three 
pages of each issue are devoted 
to descriptions of the activities 
of subscribers. Computer work is 
being carried out by subscribers 
in such fields as neuropsychiatric 
and MMPI testing, problem as- 
sessment, history taking, biofeed- 
back, computer psychopharma- 
cology consultation, EEG anal- 
ysis, computerized psychother- 
apy, the development of mental 
health information systems and 
computer assisted instruction. 
Many readers are using, or plan- 
ning to use, micros or minis for 
office management functions in- 
cluding word processing, billing, 
and record keeping. 

Each issue of the 3 year old 
newsletter contains 13 pages of 
original articles, summaries and 
reviews, as well as an ongoing 
bibliography and a program cata- 
logue. For subscriptions to Vol. 

3, send $25 ($35 outside the US 
and Canada, institutions and 
corporations) to: Computers in 
Psychiatry/Psychology, 26 Trum- 
bull Street, New Haven, CT 
06511. Volumes 1 and 2 are also 
available for $25 to individuals 
and $35 to institutions and corp- 
orations. Volumes 1, 2 and 3 can 
be ordered as a package for $60 
by individuals, $75 by institu- 
tions and corporations. 



Apple for the Teacher 

Apple for the Teacher is an 
educationally oriented user 
group emphasizing the educa- 
tional uses of the Apple Com- 
puter. Its newsletter features re- 
views of educational software, 
current information on educa- 
tional computer grants and 
educational computer research. 
The group is operating the na- 
tional computer assisted instruc- 
tion library for the Apple Com- 
puter and is receiving donations 
from throughout the world. For 



further information, contact 
Apple for the Teacher, Ted 
Perry, 5848 Riddio Street, Citrus 
Heights, CA 95610. 

AIM Newsletter 

A newsletter, Interactive , for 
professional owners of AIM 65 
microcomputers is now available 
on a subscription basis from the 
Electronic Devices Division of 
Rockwell International Corp. 

The newsletter is edited by 
Eric Rehnke, a microcomputer 
applications engineer who for- 
merly published his own micro- 
processor journal. 

For information contact Inter- 
active, Rockwell International, 
Electronic Devices Div., 3310 
Miraloma Ave., P.O. Box 3669, 
Anaheim, CA 92803. 

New Jersey Show 

The 1980 New Jersey Personal 
Computer Show and Fleamarket 
(NJPcs) will be held Saturday 
September 27 and Sunday Sep- 
tember 28 at the Holiday Inn 
(North), at Newark Interna- 
tional Airport (NJ Turnpike 
Exit 14). 

The show will feature an in- 
door commercial exhibit area, 
a large outdoor fleamarket, and 
user group meetings/forums on 
the TRS-80, Pet, Apple, Heath 
and other popular systems. For 
more information contact NJPCS, 
Kengore Corporation, 9 James 
Ave., Kendall Park, NJ 08824; 
(201) 297-6918. 

Got an Unusual 
Application? 

If you use your computer for an 
interesting, intriguing or unusual 
application, our readers would 
like to hear about it. Why not 
write up a short (500 to 1000 
words), original article telling us 
about it? Make it light and newsy, 
and include black-and-white pho- 
tos if appropriate. Send your sub- 
mission to Random Access, Per- 
sonal Computing, 1050 Common- 
wealth Ave., Boston, MA 02215. 



PRIAM 

Hard Disks 
Now Available 
from SIRIUS 
SYSTEMS! 




PRIAM's high-performance, low-cost Winchester disc drives speed up throughput and expand data storage 
from 20 megabytes to 154 megabytes. And a single controller can be used to operate 14-inch-disc drives with 
capacities of 33, 66. or 154 megabytes or floppy-disc-size drives holding 20 and 34 megabytes. So it’s easy to 
move up in capacity, or reduce package size, without changing important system elements or performance. 



I Fast, Linear Voice Coil Positioning 
I 10 ms track-to-track positioning 
I Fully servoed head positioning 
I Dedicated servo tracks 



I DC Power required only! 
I Simple, parallel Interface 
I Optional SMD Interface 



I 50 ms Average Positioning time 
I 90 ms Maximum Positioning Time 
I 6.4 ms Average Latency 



Model/Disc Size Capacity 

DISKOS 3350(14") 33Mbytes 

DISKOS 6650 14” 66 Mbytes 

DISKOS 15450 14") 154 Mbytes 

DISKOS 2050 8" 20 Mbytes 

DISKOS 3450 ( 8”) 34 Mbytes 

DISKOS 570 5.3 Mbytes 

DISKOS 1070 10.6 Mbytes w 

All PRIAM DISKOS Drives have a Transfer Rate of 1 .03 Mbytes/Sec. 
Optional SMD interface available for $ 150. 



THE PRIAM LINEUP 

Size Weight Price 

7” x 17" x 20" 33 lbs. S2995 

7” x 17" x 20" 33 lbs. $3749 

7" x 17” x 20" 33 lbs. $4695 

4.62” x 8.55" x 14.25" 20 lbs. $2995 

4.62" x 8.55" x 14.25" 20 lbs. $3745 

floppy-size (low) (low) 

floppy-size (low) (low) 



SIRIUS SYTEMS offer cases and enclosures for all PRIAM Hard Disk Drives. All 14" Winchester 
Drives will mount in our 14" Standard Case. The 8" Winchesters have two alternatives: a single 
drive case and a dual drive case. All SIRIUS SYSTEMS Winchester drive cases include Power 
Supply, internal cabling, switches, fan, extra AC outlet (not switched, but fused) and possess very 
adequate ventilation. Drive addressing is done on the rear of the Case and not on the drive iteself 
to provide ease of use during operation. All WINCHESTER DRIVE Cases are Warranted for a full 
year and come in our standard blue-black color scheme. Consult us for current availability and 
pricing. 



SIRIUS 80+ 

Perfect Add-Ons for Your 
Computer System! 




The SIRIUS SYSTEMS 80+ Series of Floppy 
Disk add-ons are designed to provide un- 
matched versatility and performance for your 
computer. Consisting of four different add-ons, 
there is a 80+ Series floppy Disk to meet your 
need. All 80+ Series floppy Disk are compatible 
with the TRS-80* and come ready to plug in! 

COMMON CHARACTERISTICS 

■ 5 ms track-to-track access time 

■ Auto-eject 

■ 180 day WARRANTY 

m Exceptional speed stability — V/ 2 % 

■ Sinple density (FM) or double density (MFMI 

■ Ultra high reliability 

■ 2 year Power Supply Warranty 

■ Mix any or all 80 + Series on the same cable! 

■ Includes user accessible plugboard for drive 
reconfiguring 

SPECIFIC CHARACTERISTICS 
The SIRIUS 80+1 is a single sided, 40 track, 
highly reliable floppy Disk add-on. Offering 5 
more tracks than the Radio Shack model, it cost 
$140 less! Formatted data storage is 102K/20K 
bytes single/double density. 

SIRIUS 80+1 $359.95 



Remex rfd 4000/4001 
8” Floppy Disc Drives 
Double sided... 
Double density!! 



*549 



95 




RFD 4001, $569.95 

Offers quality and features found in drives costing much 
more! ■ Single or Double Density ■ Double-Sided Drive ■ Door Lock INCLUDED 
■ Write-Protect INCLUDED ■ 180 Day Warranty ■ Compatible with Shugart 
850/851 ■ Low Power Operation ensures LONGER LIFE! ! ■ Model RFD 4001 offers 
Data and Sector Separator 
RFD 4000/4001 Technical Manual 6.95 

Connector Set #3 (AC, DC, Card Edge) . . 1 0.95 RFD 4000C/B Cabinet (for use with 
Connector Set #4 (AC and DC) 2.95 Power Modules) 29.95 

Remex lOOOB ... if you’ve been looking — - 

for a less expensive floppy disc drive, 
but not wanting to sacrifice quality — 
this is It! 



$41995 




You get both in the Remex 1000B! For onjy $419.95 look 
at what you get: ■ 8" Floppy Drive ■ Sinple or Double Density 
■ Hard or Soft Sectoring ■ Media Protection Feature ■ Single Density 
Data Separator ■ 180 Day Factory Warranty 

Door Lock Option $19.95 Write Protect Option $19.95 RFD 1000B Technical Manual .$5.95 

I nterface Adapter Connector Set # 1 RFD 1 000B CASE (for use 

(REMEX-to-Shugart) . . $14.95 (AC. DC, & Card Edge). . $10.95 (with Power Modules) $29.95 



SIRIUS 8" DISK 
POWER MODULES 

The Single and Dual Drive Power Modules are 
designed to provide DC and (switched) AC 
power for one (the Single Drive Power Mod- 
ule) or two (the Dual Drive Power Module— 
the DDPM will power three RFD 4000s or 
4001s) 8" floppy Disk Drives. Many features 
are included for safe and reliable operation 
and the Power Modules come with our stan- 



dard 180 day WARRANTY (the Open Frame 
Power Supply warranty is for 2 years). All 
Power Modules will work with either the RFD 
4000C/B or RFD 1000B case (color schemes 
match also). 

Dual Drive 

Power Module (DDPM). $139.95 

Single Drive 

Power Module (SDPM) 119.95 



The SIRIUS 80+2 is a dual sided, 70 track (35 
per side), highly versatile Floppy Disk unit. It 
appears to the TRS-80* as TWO 35 track drives, 
yet COST LESS THAN HALF THE PRICE! Even 
greater savings result, since data is recorded on 
both sides of the media instead of only a single 
side. Using the plug board, it may be recon- 
figured for other computer systems! (The 80+2 
operates as Drive 0 and any of the other three 
addresses (with the sandard Radio Shack Cable) 
or as any of four drives (with the SS Standad 
Cable).) Formatted data storage is 80.6K/ 
1 61. 2K bytes single/double density. 

SIRIUS 80+2 $449.95 

The SIRIUS 80+3 is a single sided, 80 track, 
“Quad" density Floppy Disk unit. Offering 2 V 3 
times the storage of a Standard Radio Shack 
drive, the 80+3 greatly reduces the need for 
diskettes correspondingly. Additionally, 
because of the increased storage and faster 
track-to-track access time, the 80+3 allows tre- 
mendously increased throughput for disk based 

□ rams!!! The 80+3 INCLUDES SIRIUS’s 
KS-PATCH on Diskette. Formatted data 
storage is 204K/40K8 bytes single/double 
density. 

SIRIUS 80+3 $489.95 

The SIRIUS 80+4 Floppy Disk add-on is a 
double sided, 160 track (80 per side), 5Va" 
monster! The ultimate in state-of-the-art 5V4" 
floppy Disk technology, to 80+4 is seen by the 
TRS-80* as two single sided disk drives, each 
with 80 tracks. Thus, in terms of capacity one 
80+4 is equivalent to 4% standard Radio Shack 
drives — a savings of over 73% (not to mention 
diskettes!!!). (With a double density converter, 
the available memory is huge!) The 80+4 is 
similar to the 80+2 in that it arrives configured 
as Drive 0 and any of the other three addresses 
(with the standard Radio Shack Cable) or as any 
of four drives (with the SS Standard Cable). The 
80+4 INCLUDES TRAKS-PATCH on Diskette. 
(The plug board is also included.) Formatted 
data storage is 408K single density or 816K 
bytes double density. 

SIRIUS 80+4 $624.95 

0 

All 80+ Series floppy Disk add-ons operate a 5 
milliseconds track-to-track access time (eight 
times faster than the SA 400) but are Expansion 
Interface Limited to 12 milli-seconds for the 
TRS-80*. 

*TRS-80© Tandy Corp. 




SIRIUS 
SYSTEMS 

7528 Oak Ridge Highway 
Knoxville, Tennessee 37921 



TO ORDER CALL (615) 693-6583 

Phone Orders Accepted 9AM-7PM (ESDT) 

We accept MC, VISA, AE, COD (requires Certified Check, Cashier’s Check 
or Cash) and Checks (personal checks require 14 days to clear). SHIPPING 
AND HANDLING: $7.00 per Floppy Disk Drive or 80+ Module ■ 5% for other 
items (any excess will be refunded) ■ Foreign Orders add 10% for Shipping 
& Handling. Payment in U.S. currency ■ Tennessee residents add 6% Sales 
Tax ■ VOLUME DISCOUNTS AVAILABLE 



MPI 51/52 . . . 

A Great Reliable Mini-Drive! 



■ Fast! 5ms track to track access 

■ Exclusive Pulley-Band Design 

■ Unique Door/ Ejector Mechanism 
m Reliable V/ 2 % Speed Stability 

■ Single/ Double Density Operation 

■ Industry/ ANSI Standard Interface 



MPI 51 

(Single Head, 40 tracks, 120K/240K 
bytes Single/Double Density**) 

MPI 52 

(Dual Head, 70 tracks, (35/side), 
218.8K/437.5K Single/Double Den- 
sity**) 



$259.95 

$349.95 




MPI 91/92 . . . NEW 

STATE-OF-THE-ART 

DISKDRIVE! 



MPI 91 

(Single Head, 80 tracks, 240K/480K 
Single/Double Density**) 

MPI 92 

(Single Head, 160 tracks (80/side), 
480K/960K Single/Double Den- 
sity**) 

* * Unformatted data storage 



$389.95 

$499.95 



introducing the 
versatile, Low-Cost 
OMEGA Series 
Controller 

As new technological advances bring down the 
cost of fast, reliable mass data storage, the need 
for an inexpensive, versatile controller have be- 
come greater and greater. To meet this need, 
SIRIUS SYSTEMS’ OMEGA Series Controller 
was designed. 

The SIRIUS OMEGA Series Controller Module 
utilizes an on-board microprocessor to 
mediate data transfer to a wide variety of 
peripherals from an equally wide variety of host 
computer systems. Up to four Winchester Hard 
Disks (8" or 14"), four 574 ” Floppy Disks Drives 
and/or up to eight 8" Floppy Disk Drives may be 
in use at one time. Host systems interfacing 
is accomplished via a parallel or a serial inter- 
face. With the additon of a Personality module, 
the OMEGA Series Controller Module is directly 
compatible with many popular com- 
puter systems (among them the TRS-80*, 
Apple, Heath, and others). Provision is made for 
the addition of a streaming tape drive, also. 

SPECIFIC HARDWARE 
FEATURES INCLUDE: 

■ Control of up to twelve Floppy Disk Drives 
(eight 8" and/or four 5V «”) 

• 8" and I or 5V* ’ ’ Disk Drive Utilization 

• Single (FM) or Double (MFM) density data 
storage 

• Hard or Soft sectored diskette usage 

• Utilization of “Quad" density (96 tpi) 8" or 
5 Va" Disk Drives 

m Control of up to four WINCHESTER type 
PRIAM DISKOS Disk Dnves 

• 8” or 14" may intermix on the same cable 

• Accommodates 8" and/or 14" drives of 
5. 3M bytes to 154M bytes 

• Ultra-Fast data transfers 

■ Extremely flexible host-controller interfacing 

SPECIFIC SOFTWARE 
FEATURES INCLUDE: 

■ Dynamic format modifications via command 
words 

■ Extremely flexible format acceptance for un- 
usual data storage formats 

■ Easily interfaces to standard operating sys- 
tems (TRS-DOS*. CP/M***, etc) 

■ Operates in either get/put sector mode or 
data string mode 

■ Performance parameters may be changed by 
EPROM replacement or Dynaminic Repro- 
gramming 

Dedicated systems cards are also available on a 
limited basis for the STD-BUS and the S 100. 
These cards feature shared memory also (again, 
software selectable) in addition to the regular 
OMEGA Series Controller Module features. Con- 
sult SIRIUS SYTEMS for current price and 
availability for the entire line of OMEGA Series 
Memory Units and Controllers. Dealer inquir- 
ies are invited. 
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MONTHLY 
NEWSMAGAZINE 
FOR TRS-80 * 
OWNERS 

MONTHLY NEWSMAGAZINE 

Practical Support For Model I & II 




THE ORIGINAL MAGAZINE FOR 
OWNERS OF THE TRS- 80 ™* MICROCOMPUTER 



• PRACTICAL APPLICATIONS 

• BUSINESS 

• GAMBLING • GAMES 

• EDUCATION 

• PERSONAL FINANCE 

• BEGINNER’S CORNER 

• NEW PRODUCTS 

• SOFTWARE EXCHANGE 

• MARKET PLACE 

• QUESTIONS AND ANSWERS 

• PROGRAM PRINTOUTS 
AND MORE 



PROGRAMS AND ARTICLES PUBLISHED IN OUR FIRST 12 ISSUES 
INCLUDE THE FOLLOWING: 

• A COMPLETE INCOME TAX PROGRAM (LONG AND SHORT FORM) 

• INVENTORY CONTROL 

• STOCK MARKET ANALYSIS 

• WORD PROCESSING PROGRAM (FOR DISK OR CASSETTE) 

• LOWER CASE MODIFICATION FOR YOUR VIDEO MONITOR OR PRINTER 

• PAYROLL (FEDERAL TAX WITHHOLDING PROGRAM) 

• EXTEND 16 DIGIT ACCURACY TO TRS 80’" FUNCTIONS (SUCH AS 
SQUARE ROOTS AND TRIGONOMETRIC FUNCTIONS) 

• NEW DISK DRIVES FOR YOUR TRS-80’" 

• PRINTER OPTIONS AVAILABLE FOR YOUR TRS 80’" 

• A HORSE SELECTION SYSTEM*** ARITHMETIC TEACHER 

• COMPLETE MAILING LIST PROGRAMS (BOTH FOR DISK OR CASSETTE 
SEQUENTIAL AND RANDOM ACCESS) 

• RANDOM SAMPLING***BAR GRAPH 

• CHECKBOOK MAINTENANCE PROGRAM 

• LEVEL II UPDATES***LEVEL II INDEX 

• CREDIT CARD INFORMATION STORAGE FILE 

• BEGINNER’S GUIDE TO MACHINE LANGUAGE AND ASSEMBLY 
LANGUAGE 

• LINE RENUMBERING 

• AND CASSETTE TIPS. PROGRAM HINTS. LATEST PRODUCTS 

COMING SOON (GENERAL LEDGER. ACCOUNTS PAYARli AND 
RECEIVABLE. FORTRAN 80. FINANCIAL APPLICATIONS PACKAGE. 
PROGRAMS FOR HOMEOWNERS. MERGE TWO PROGRAMS. 
STATISTICAL AND MATHEMATICAL PROGRAMS (BOTH 
ELEMENTARY AND ADVANCED) . AND 




WORD PROCESSING PROGRAM 

(Cassette or Disk) 

For writing letters, text, mailing lists, etc., with each 
new subscriptions or renewal. 

LEVEL II RAM TEST 

(Cassette or Disk) 

Checks random access memory to ensure that all memory 
locations are working properly. 



DATA MANAGEMENT SYSTEM 

(Cassette or Disk) 

Complete file management for your TRS 80’" 

CLEANUP * 

(Cassette or Disk) 

Fast action Maze Game. 

* TRS HO- IS A TRADEMARK OF TANDY CORP 



I SEND FOR OUR NEW 48 PAGE SOFTWARE CATALOG (INCLUDING LISTINGS OF HUNDREDS OF TRS 80’" PROGRAMS AVAILABLE ON 
1 CASSETTE AND DISKETTE). $2.00 OR FREE WITH EACH SUBSCRIPTIONS OR SAMPLE ISSUE. 



iCQiriPJTRQNICSi 

MATVe^ATCA*. APRJCATCTvS SC«vC£ ' M 

Box 149 New City, New York 10956 

ONE YEAR SUBSCRIPTION $24 

TWO YEAR SUBSCRIPTION $48 

SAMPLE OF LATEST ISSUE $ 4 

START MY SUBSCRIPTION WITH ISSUE 




(#1 - July 1978 • #7 - January 1979 • #12 - June 1979 • #18 - January 1980) 
NEW SUBSCRIPTION RENEWAL 



HOUR 

24 ORDER 
LINE 

(914) 425-1535 




CREDIT CARD NUMBER EXP. DATE 

SIGNATURE 

NAME 

ADDRESS STATE ZIP. 

*** ADD S6/YEAR (CANADA. MEXICO) - ADD SI 2/YEAR AIR MAIL - OUTSIDE OF USA., CANADA & MEXICO *** 
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SOFTWARE- TRS-80 - SOFTWARE 




PACKAGE ONE INCLUDES: GRAPHIC- 
TREK "2000” — This full graphics, real 
time game is full of fast, exciting action! 
Exploding photon torpedoes and phasers 
fill the screen! You must actually navigate 
the enterprise to dock with the giant space 
stations as well as to avoid klingon 
torpedoes! Has shields, galactic memory 
readout, damage reports, long range 
sensors, etc! Has 3 levels for beginning, 
average, or expert players! * INVASION 
WORG — Time: 3099, Place: Earth’s Solar 
System Mission: As general of Earth’s 
forces, your job is to stop the Worg 
Invasion and destroy their outposts on 
Mars, Venus, Saturn, Neptune, etc! Earth’s 
Forces: Androids — Space Fighters — 

Lazer Cannon — Neutrino Blasters! Worg 
Forces: Robots — Saucers — Disintegrators 

— Proton Destroyers! Multi level game lets 
you advance to a more complicated game 
as you get better! ★ STAR WARS — 
Manuever your space fighter deep into the 
nucleus of the Death Star! Drop your 
bomb, then escape via the only exit. This 
graphics game is really fun! May the Force 
be with you! ★ SPACE TARGET — 
Shoot at enemy Ships with your missiles. 
If they eject in a parachute, capture them 

— or if you’re cruel, destroy them! Full 
graphics, real time game! ★ SAUCERS — 
This fast action graphics game has a time 
limit! Can you be the commander to win 
the distinguished cross! Requires split 
second timing to win! Watch out! 




PACKAGE TWO INCLUDES: CHECK- 
ERS 2.1 — Finally! A checkers program 
that will challenge everyone! Expert as 
well as amateur! Use 3-ply tree search to 
find best possible move. Picks randomly 
between equal moves to assure you of 
never having identical games. * POKER 
FACE — The computer uses psychology as 
well as logic to try and beat you at poker. 
Cards are displayed using TRS-80’s full 
graphics. Computer raises, calls, and 
sometimes even folds! Great practice for 
your Saturday night poker match! (Plays 5 
card draw). ★ PSYCHIC - Tell the 
computer a little about yourself and he'll 
predict things about you, you won’t 
believe! A real mind bender! Great 
amusement for parties. ★ TANGLE MAN- 
IA — Try and force your opponent into an 
immobile position. But watch out, they're 
doing the same to you! This graphics game 
is for 2 people and has been used to end 
stupid arguments. (And occasionally starts 
them!) * WORD SCRAMBLE - This 
game is for two or more people. One 
person inputs a word to the computer 
while the others look away. The computer 
scrambles the word, then keeps track of 
wrong guesses. 



PACKAGE THREE INCLUDES: POE- 
TRY — This program lets you choose the 
subject as well as the mood of the poem 
you want. You give TRS-80 certain nouns 
or names, then the mood, and it does the 
res’! It has a 1000-word + vocabulary of 
nouns, verbs, adjectives and adverbs! * 
ELECTRIC ARTIST — Manual: draw, 
erase, move as well as. Auto: draw, erase 
and move. Uses graphics bits not bytes. 
Saves drawing on tape or disk! * GALAC- 
TIC BATTLE — The Swineus enemy have 
long range phasers but cannot travel at 
warp speed! You can, but only have short 
range phasers! Can you blitzkrieg the 
enemy without getting destroyed! Full 
graphics — real time! ★ WORD MANIA — 
Can you guess the computer’s words using 
your human intuitive and logical abilities? 
You’ll need to, to beat the computer! * 
AIR COMMAND — Battle the Kamikaze 
pilots. Requires split second timing. This is 
a FAST action arcade game. 




PACKAGE FOUR INCLUDES: LIFE - 

This Z-80 machine language program uses 
full graphics! Over 100 generations per 
minute make it truly animated! You make 
your starting pattern, the computer does 
the rest! Program can be stopped and 
changes made! Watch it grow! ★ SPACE 
LANDER — This full graphics simulator 
lets you pick what planet, asteroid or 
moon you wish to land on! Has 3 skill 
levels that make it fun for everyone. ★ 
GREED II — Multi-level game is fun and 
challenging! Beat the computer at this dice 
game using your knowledge of odds and 
luck! Computer keeps track of his 
winnings and yours. Quick fast action. 
This game is not easy! ★ THE PHARAOH 
— Rule the ancient city of Alexandria! 
Buy or sell land. Keep your people from 
revolting! Stop the rampaging rats. Re- 
quires a true political personality to 
become good! ★ ROBOT HUNTER — A 
group of renegade robots have escaped and 
are spotted in an old ghost town on Mars! 
Your job as "Robot Hunter” is to destroy 
the pirate machines before they kill any 
more settlers! Exciting! Challenging! Full 
graphics! 



ONLY $12.95 
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PACKAGE FIVE INCLUDES: SUPER 
HORSERACE — Make your bets just like 
at the real racetrack! 8 horses race in this 
spectacular graphic display! Up to 9 
people can play! Uses real odds but has 
that element of chance you see in real life! 
Keeps track of everyone’s winnings and 
losses. This is one of the few computer 
simulations that can actually get a room of 
people cheering! ★ MAZE MOUSE — The 
mouse with a mind! The computer 
generates random mazes of whatever size 
you specify, then searches for a way out! 
The second time, he’ll always go fastest 
route! A true display of artificial intelli- 
gence! Full graphics, mazes & mouses! * 
AMOEBA KILLER — You command a 
one man submarine that has been 
shrunken to the size of bacteria in this 
exciting graphic adventure! Injected into 
the president’s bloodstream, your mission 
is to destroy the deadly amoeba infection 
ravaging his body! ★ LOGIC — This 
popular game is based on Mastermind but 
utilizes tactics that make it more exciting 
and challenging — has 2 levels of play to 
make it fun for everyone. ★ SUBMARIN- 
ER — Shoot torpedoes at the enemy ships 
to get points. Fast action graphics, arcade 
type game is exciting and fun for 
everybody! 



ONLY $12.95 



ONLY $12.95 



ONLY $12.95 



HARDWARE- TRS-80 - HARDWARE 



MICRO 

SPEED 

Upgrade your "slow" TRS-80 to a 
SUPER FAST MACHINE!! (2.66 
MHZ) over 50% FASTER! Some of 
the features: 

Auto turn-off during cassette or 
disk access. (This means NO lost 
programs EVER!) (Turns back on 
automatically too!) MANUAL con- 
trol. (Unit may be turned on or off 
at any time. Yes even during 
program execution!) Keyboard 
indicator light "blinks" when mi- 
cro-speed is on. Stops blinking 
when off! Don't wait for SARGON 



MICRO 

BEEP 

Simple hook up: Just plug cassette 
remote jack into unit. 



EASILY CONTROLLED FROM 
BASIC: 

OUT 255,4 « on 
OUT 255,0 = off 



MICRO-BEEP make games more 
fun as well as provide useful sound 
output for professional applica- 
tions! 
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PACKAGE SEVEN INCLUDES: BACK- 
GAMMON 5.0 — 2 different skill levels 
make this game a challenge to average or 
advanced players FAST (15 second avg) 
Looks for best possible move to beat you! 
FANTASTIC GRAPHICS. Plays doubles 
and uses international rules ★ SPEED 
READING — Increases your reading 
speed. Also checks for comprehension of 
material. Great for teenagers and adults to 
improve reading skills ★ pt 109 — Drop 
depth charges on moving subs. Lower 
depths get higher points in this fast action 
graphics game. * YAHTZEE — Play Yaht- 
zee with the computer;This popular game 
is even more fun and challenging against a 
TRS-80! ★ WALL STREET - Can you 
turn your $50,000 into a million dollars? 
That’s the object of this great game 
Simulates an actual stock market! 



II or any other program!!! Comes 



Works with Any Model I TRS-80 



ONLY $12.95 



with easy to follow instructions. 



(Some soldering required.) OR take 
to your local computer store or 
TV-Appliance Center for quick 
installation. (5-10 minutes!!) Works 
with any model, TRS-80. 



PACKAGE SIX INCLUDES: 20 HOME 
FINANCIAL PROGRAMS - Figures am- 
ortization, annuities, description rates, 
interest tables, earned interest on savings 
and much, much more. These programs 
will get used again and again. A must for 
the conscientious, inflation minded per- 
son. 



ONLY $12.95 



ONLY $24.95 complete 



ONLY $9.95 complete 



ONLY $12.95 




Exceptional Products through Research & Imagination 
Send Check, Money Order or Bank Card No. orders to: 



SIMUTEK 
P.O. Box 35298 
Tucson, AZ 85740 



Please Add 2.50 
Per Order For 
Postage & Handling 



24 HOUR (7 days) HOTLINE 

(602) 882-3948 Visa 

(C.O.D. $3 extra) 

Same Day Shipment on Bank Cards, 

Money Orders & C.O.D. 

All Tape Programs Require a Minimum of 16K Level 2 
Packages Available on Diskette (32K System) $4.25 Extra 
3 or More Packages Get 10% Discount 

Dealer Inquiries Invited 

TRS-80 IS A REGISTERED TRADEMARK OF TANDY CORP. 



Master 

Charge 
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FUTURE COMPUTING 



Home Computing 
for the Retirement Years! 

BY WILLIAM R. PARKS 



In the not too distant future, the count- 
less senior citizens centers across the 
land may add home computing to their 
list of regular scheduled activites. 
When home computers become more 
pervasive and their great entertainment 
qualities are realized by senior citizens 
as a group, you will see such an ava- 
lanche of orders for both hardware and 
software that perhaps some people will 
think personal computers were in- 
vented for senior citizens. 

Why am I so interested in seeing 
such developments? There are many 
reasons. Let me list just a few. Many 
senior citizens are physically disabled 
but still wish to remain active. With the 
growing number of games being pro- 
duced for home computers, there is no 
reason why even the most physically 
disabled person couldn’t get the thrill 
and satisfaction of playing any or all of 
the popular sports to which the society 
is addicted. I’ve seen one simulated 
game that requires sportsmanlike skill 
to play. Imagine the thrill when a long 
disabled senior citizen once again re- 
sumes his skillful attention to football, 
baseball or hockey on CRT screens. I 
am not referring to the simple hand- 
held types of simulated games, but to 
highly complex software for interactive 
play that truly requires talent and men- 
tal acuity to play. I am thinking about 
software that will drive big screen color 
and sound sporting games with high 
resolution graphics. Perhaps two play- 
ers would plan "huddle” strategies 
against each other and battle out almost 
real-life football games on giant color 
monitors to the delight and cheers of 
their friends. 

Software publishers take note. Most 
games on the market today pit a player 
against the program running on the 
computer. However, for social settings 
where groups of people would get in- 
volved, you will have to create game 
programs that are highly sophisticated 
and involve two, three or more players. 



Thus, the purpose of the computer pro- 
gram would be to monitor the human 
players, add color and sound anima- 
tions, and govern the rules and strate- 
gies input by the players. I believe that 
this new type of software may well be- 
come the most sophisticated and popu- 
lar software of tomorrow. 

I am not knocking the traditional 
software — there will always be a need 
for human-against-computer games. In 
the context of senior citizens, the need 
becomes obvious. Imagine that a re- 
tired person, living alone, wants some 
stimulating interactive game play, but 
no one is around to provide that part- 
nership. The home computer can come 
to the rescue with many hours of stim- 
ulating interactive play. 1 conjecture 
that soon our grandmothers will be on 
the phone comparing game strategies 
and even exchanging good software 
through modem acoustic couplers. 

Imagine what will happen when this 
generation of programmers reaches re- 
tirement age. There are very few retired 
programmers — computer technology 
is too new. When this profession gets 
older and hundreds of thousands of 
programmers finally reach retirement 
age, we might see a renaissance in pro- 
gramming — not for business, but for 
the enjoyment of other senior citizen 
retirees. Perhaps, the main thrust of 
programming will be for entertainment 
purposes. Yes, business and educa- 
tional programming are important, but 
entertainment may someday lead the 
list. Chess strategies can be as impor- 
tant to a retired person as some business 
program for data processing is to a busi- 
nessman. We are more than attentive to 
the needs of businessmen — now let’s 
put some time in for the retirees. 

A message for computer store own- 
ers: Why not loan your best big screen 
color computer to the local senior citi- 
zens center for a few days or install it in 
the common room of the local senior 
citizens housing development. (I prefer 



to see “big” screen color computers 
because they dominate the situation 
better!) Teach more socially aggressive 
members how to load game programs 
and ask them to invite other senior 
members for interactive game play. I 
would suggest starting with the game 
"Othello,” then moving up to some- 
thing more challenging like chess. As a 
computer store owner, you might be 
interested in making a sale. Perhaps 
you could suggest that these people 
pool their funds and get one computer 
at first and maybe more later on. How 
about demonstrating the home comput- 
er to an entire group of senior citizens 
and offering to rent it on a rotating basis 
among the many apartment dwellers? 
This sales strategy might bring you the 
sale of many machines as individuals 
decide to purchase their own computers. 

When the words "home computers” 
enter the vocabularies of our senior cit- 
izens, you will see a rapid growth in the 
industry. What you must realize is that 
many of the retired are among the most 
wealthy in our society. Many retired 
folk are in a position to invest in good 
home entertainment for their golden 
years. I can’t think of a better thing to 
invest in than a home computer. 

As a person who cherishes the aged 
in our society, I am concerned that 
there are many lonely retired persons. 
Television is not enough for them — 
it’s too passive. I would feel better 
knowing that lonely people have some 
form of interactive conversation, at 
least for part of the day. I would feel 
better knowing that such persons who 
live alone would be able to relate to an 
interactive entertainment that would 
keep their minds active and even help 
them communicate with the outside 
world using, what I mentioned before, 
acoustic couplers. Game playing and 
educational computer programs would 
fill the gap that television can’t fill — 
the ability to respond rather than just 
passively observe. 




Simpler, more 
reliable circuitry. 



Precision 
Engineered Drives 

>i i Qrratrh rocictant ctool rn\/or PrimoH anrl hakpH 



Power supply guaranteed 
for one year. 



More Capacitance: Insures stable 
operation over greater line 
voltage variations (105-125 Vac.) 



Scratch resistant steel cover: Primed and baked 
enamel finish. Virtually eliminates video interference. Color 
compatible with Radio Shack or Zenith Z89. 

Increased ventilation for 

additional cooling: Top, 

side and bottom vents mean lower 

operating temperatures 

for longer life. 

Switch designed with high 
current ratings (10 AMP). 



Transformer designed as integral 
part of system for best line 
regulation. Not separately encased to 
avoid heat build-up providing longer life. 



Designed to UL specifications. 

Wide operating temperature range (0°C to 50°C) 

Jested to 1500 voltS'fnput tg^output isolation for enhanced 
pQwer surge protection, 



With the number of disk drives on the market increasing, 
more and more people are beginning to ask what’s under- 
neath that cover. 

The CCI™ series of disk drives have been designed for long 
life and ease of operation. The features shown above are what 
set our CCI drives apart from the rest. With a CCI drive you get 
an integrated professional design! 

If you’re still not convinced that you get the most for your 
money with a CCI drive, just ask for our complete specifica- 
tions sheet. Then, compare our disk drives to anyone else’s. 

51/4" DRIVES 

CCI- 1 00 40 Track (102K Bytes) for TRS-80* Model I $399.00 

CCI- 189 40 Track (102K Bytes) for Zenith Z89 $499.00 

CCI-200 77 Track (197K Bytes) for TRS-80* Model I $675.00 

8" DRIVES 

CCI-800 77 Track ( 1/2 Meg Bytes) for TRS-80* Model II $895.00 

All CCI drives are also available for 220 Vac (50Hz) operation. 



Easy access to terminating 
resistor for easy field 
conversion from drive 
Oto drivel, 2, or 3. 



Extender: 

Easy plug-in access 



3-wire groundedjfewd'j 
for added operator safety. 



Operating Systems 

NEWDOS Plus for 51/4", 40 and 77 Track Drives— with over 200 
modifications and corrections to TRSDOS $ 1 1 0.00 

CP/M for Model I, Zenith $150.00 

CP/M for Model II, Altos $ 1 99.00 

Software by S&M Systems 

INSEQ-80 ™ —Indexed Sequential Access Method ( ISAM ) 
for the TRS-80 Model I . 

Four machine language programs that can be called from your 
BASIC program via GSR functions to access records either sequen- 
tially or randomly. The INSEQ-80 programs maintain ail indexes and 
chains for you. Includes reorganization utility to consolidate files. 

$49.95 

Professional Business Software using INSEQ-80 for 
the TRS-80* Model I and Zenith Z89. 



Accounts Payable, Accounts Receivable, 
General Ledger, Payroll 
Inventory 



per package $99.00 
per package $125.00 



ComputerCity 



175 Main Street, Dept. PC7, Charlestown, MA 02129 
Hours: 10AM-6PM (EST) Mon.-Fri. (Sat. till 5). 



TO ORDER CALL 
TOLL FREE 1-800-343-6522 
TWX: 710-348-1796 

Massachusetts residents call 617/242-3350 

For detailed technical information, call 617/242-3350. 
Freight Collect, F.O.B. Charlestown. 

*TRS-80 is a trademark of the Tandy Corporation 



Products also available from: Radio Shack, NEC, Centronics, Paper Tiger, Tl, Altos, MPI, Zenith, ATARI, Mattel 
PET, OK1DATA, Apple, Eaton/LRC. 

FRANCHISE AND DEALER (NATIONAL/INTERNATIONAL) INQUIRIES INVITED 
Retail Stores: MA: Burlington, Charlestown, Framingham, Hanover NH: Manchester RI: Providence 






VISA 
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Single-Board 
vs. Personal 
Computers 

Which Option is Best for You? 




BY LANCE A. LEVENTHAL 



F or those with limited budgets, 
there are two ways to become in- 
volved in microcomputers — single- 
board computers and appliance (per- 
sonal or home) computers. Which you 
choose will depend on a number of fac- 
tors including budget, background, 
interests and applications. 

I will describe what is included in 
these systems and discuss their advan- 
tages and disadvantages, typical appli- 
cations and future trends. Finally, I will 
present criteria for selecting one or the 
other type. 

First, let's adhere to the following 
guidelines in describing these options: 
1) Expenditures above $1000 will 
be considered large; those under $1000 
will be considered small. Purchases in 
the intermediate range will be consid- 



ered reasonable, but hardly to be made 
without careful consideration. 

2) You will be assumed to have 
done a little programming, either in 
Basic or in Fortran, but will not be 
presumed to be either an expert pro- 
grammer or a digital logic designer. 

3) I assume that you do not plan to 
build a computer-controlled house, 
lawn sprinkler system, robot or space- 
ship. I will concentrate on computers 
that can provide reasonable experience 
at low cost and perhaps do a few prac- 
tical things as well. 

The most reasonable low-cost ap- 
proaches are to purchase either a single- 
board computer (or evaluation kit) or an 
appliance (or home) computer. Typical 
single-board computers (SBCs) are the 
MOS Technology KIM, Rockwell 




Radio Shack TRS-80 personal computer. 



AIM, Synertek SYM and various 
evaluation kits offered by the semi- 
conductor manufacturers. Examples of 
appliance or home computers are the 
Radio Shack TRS-80, Apple II, Com- 
modore Pet, Compucolor, Ohio Scien- 
tific Challenger II, Bally, Texas Instru- 
ments and Atari. 

Characteristics of SBCs 
and Appliance Computers 

A single-board computer or evalua- 
tion kit consists of an unpackaged cir- 
cuit board with various electronic com- 
ponents and interfaces. Typically in- 
cluded are: 

• a microprocessor (one-chip cen- 
tral processing unit) 

• some read only memory contain- 
ing a monitor that allows you to per- 
form simple functions such as examin- 
ing and changing memory, examining 
registers and executing programs 

• some read/write memory (RAM) 
in which you can place data and pro- 
grams and which can be used for other 
temporary storage 

• input/output ports to which pe- 
ripherals can be attached 

Almost all single-board computers 
contain some further options, depend- 
ing on the applications for which they 
are intended. Popular options on sys- 
tems like the Synertek SYM- 1 include: 

• audio cassette interface to provide 
cheap mass storage via an ordinary 
cassette recorder 

• video interface to allow attach- 
ment of a television set 

• on-board peripherals such as a 
keyboard (often calculator-like), sev- 
en-segment displays, alphanumerical 
displays or a printer 




• RS-232 or current-loop interface 
for a terminal 

Obviously the more that is included, 
the higher the price will be. Single- 
board computers without on-board pe- 
ripherals will be the cheapest but 
require a terminal to operate. Other 
factors that increase the introductory 
price are more memory and input/out- 
put ports, a larger monitor with more 
features and more extensive interfaces. 

A personal or appliance computer 
consists of a packaged system. Typi- 
cally included are: 

• CPU board 

• 4K to 16K of read/write memory 

• large amount of read only memory 
that may contain a high-level language 
(usually Basic) as well as a monitor and 
other programs 

• typewriter-like keyboard 

• television set (video monitor) or 
an interface for one 

• audio cassette recorder or an inter- 
face for one 

• power supply 

• case 

• some graphics or line and figure 
drawing capability 

Options that may be included are 
color graphics, a floppy disk, commun- 
ications interfaces and slots for more 
memory or other interfaces. 

Clearly the appliance computers 
have more capabilities than the single- 
board computers and, of course, higher 
prices. Single-board computers are 
available for as little as $100 although 
$200 to $400 is a typical price range. 
Appliance computers usually cost $500 
to $1500, with most useful systems 
being closer to the higher price than the 
lower one. 

Advantages and Disadvantages 

The advantages of the single-board 
computers include: low initial cost; 
ease of attachment to equipment for 
control purposes; small size and great 
flexibility in use; little separation of 
user from underlying hardware; and 
portability. Single-board computers are 
well-suited to simple control applica- 
tions like test systems, laboratory 
instrumentation or experiment mon- 
itoring. The units do not require any 
computer background. Manuals are 
suited to those with digital electronics 
background and applications. 

The disadvantages of single-board 
computers lie in their limitations such 
as in the area of expandability. Expan- 
sion may be quite expensive since more 
power, a new housing, connectors, 
cables and other accessories must be 
added. There is also a situation of lim- 



ited software and hardware support. A 
simple assembler and Basic are the only 
software usually available. Additional 
peripherals require considerable inter- 
facing if they are at all complex. Lack 
of adequate peripherals and software 
for writing and debugging anything 
other than short programs may also be 
encountered with single-board computers. 

Usually, there is limited documen- 
tation for anything other than the most 
popular variations (such as the KIM, 
SYM and AIM) or computers specifi- 
cally designed for coursework (such as 
the E and L Mini-Micro Designer or 
Heathkit ET-3400). SBCs generally 
require a background and interest in 
digital electronics. 

One problem for those who want to 
use a single-board computer to gain 
experience is that the most popular 
single-board computers (KIM, AIM 
and SYM) are based on the 6502 
microprocessor, which is not widely 
used in industry. On the other hand. 



kits that utilize the popular Intel proc- 
essors often have rather little support. 
The 6502 microprocessor and the sin- 
gle-board computers based on it are 
supported by numerous suppliers, 
books and even magazines. (MICRO, 
P.O. Box 6502, Chelmsford, MA 
01824 is a magazine dedicated entirely 
to 6502-based single-board and appli- 
ance computers.) 

The advantages of personal (or ap- 
pliance) computers include wide avail- 
ability through radio/electronics stores, 
computer stores and mail order sup- 
pliers; extensive software support, 
including operating systems, languages 
like Basic, Pascal, Fortran and Cobol, 
editors, assemblers and numerous ap- 
plications programs and games; and 
expandability since a case and a simple 
bus structure is provided. The Apple 
with its standard case and empty slots 
for additional boards is easier to expand 



than either the TRS-80 or Pet, although 
it is somewhat more expensive initially. 

The appliance computer field also 
has reasonable documentation. For the 
rank beginner. Radio Shack’s Level I 
User’s Manual is an ideal way to get 
started. For those who are more ad- 
vanced, there are numerous books and 
magazines for the popular personal 
computers. 

Extensive peripherals can be added 
easily to a system. The large market for 
personal computers has spawned 
numerous suppliers who provide print- 
ers, disks, voice I/O units, plotters, 
digitizers, analog input/output systems 
and other devices at reasonable cost. 
Obviously, you are far ahead with the 
popular brands such as the TRS-80 and 
Apple II. 

Local service is another advantage of 
personal computers. Clearly Radio 
Shack has a big lead here with its 
numerous local stores. For the most 
part, the computers themselves are 



usually quite reliable; the largest prob- 
lems arise from the erratic behavior of 
standard audio cassette recorders. 

Finally, personal computers require 
no understanding of digital electronics. 

Appliance computers have disadvan- 
tages as well. Electrical design and 
documentation are fair at best. Com- 
puters can behave erratically if there is 
noise on the power lines and the quality 
of many products leaves much to be 
desired. 

Lack of reliable suppliers for hard- 
ware or software can be another prob- 
lem. Most of the companies in the 
personal computer business are new (at 
least at building computers, if not 
completely). In particular, the quality 
of software from manufacturers and 
independent suppliers alike is extreme- 
ly variable; there are some good sup- 
pliers, but it is difficult for the new- 
comer to identify them. 
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Ohio Scientific Challenger IIP personal computer. 



The last major disadvantage of per- 
sonal computers is a lack of standard or 
even well-defined buses. Making elec- 
trical connections to control equipment 
is often unnecessarily difficult. 

The same problem with respect to 
useful experience occurs with appli- 
ance computers as with single-board 
computers. Two of the most popular 



appliance computers (Apple II and Pet) 
are based on the 6502 microprocessor; 
this makes little difference to those who 
program in Basic, Pascal or some other 
high-level language, but is a drawback 
for those who want to use their knowl- 
edge to build controllers in an industrial 
world that is dominated by 8080, Z-80, 
and 6800 microprocessors. 



Typical Applications 

How can these computers be used? 
The single-board computers are useful 
for learning microcomputer electronics 
or assembly language programming; 
controlling laboratory instruments or 
experiments; prototyping microcom- 
puter-based equipment; providing a 
low-cost remote terminal for data col- 
lection; controlling data logging and 
acquisition; monitoring test equipment; 
and performing simple electrical tests. 

Appliance computers are useful fora 
wide variety of computer tasks, includ- 
ing serving as a video calculator for 
engineering and business problems, or 
as a learning station for high-level lan- 
guage (Basic, Pascal or Fortran) pro- 
gramming; word processing; com- 
puter-aided instruction; video games; 
financial recordkeeping; handling lists 
of addresses, names, contributors, 
suppliers, etc.; investment manage- 



Vendor Guide 



Single Boards 

E & L Instruments Inc. 

61 First St. 

Derby, CT 06418 
(203)735-8774 
E & L Mini-Micro Designer 
Circle 200 

Heathkit 

Heath Company 

Benton Harbor, MI 49022 

(616)982-3411 

ET-3400 Microprocessor 

Trainer 

Circle 201 

MOS Technology 
Valley Forge Corporate Ctr. 
950 Rittenhouse Road 
Norristown, PA 19401 

(215)666-7950 

KIM 

Circle 202 

Netronics R&D Ltd. 

333 Litchfield Rd. 

New Milford, CT 06776 
(203)354-9375 
ELF II, Explorer 85 
Circle 203 

Priority One Electronics 
16723 Roscoe Blvd. 
Sepulveda, CA 91343 
1-800-423-5633 
(213)984-8171 
Single-board Z-80 starter 
kit 

Circle 204 



Quasar Data Products 
25151 Mitchell Drive 
No. Olmstead, OH 44070 
(216)779-9387 
Single-board computer 
Circle 205 

Quest Electronics 
PO Box 44305 
Santa Clara, CA 95054 

(408)988-1640 
Super ELF 
Circle 206 

Radio Hut 
201 Lockwood Mall 
Dallas, TX 75218 
(214)324-5509 
Single-board computer 
Circle 207 

RCA 

VIP Customer Service 
New Holland Ave. 
Lancaster, PA 17604 

1-800-233-0049 
(717)397-7661 Ext. 3179 

VIP, VIP III, Cosmac VIP 

Circle 208 

Rockwell International 
Electronic Devices Division 
33 10 Miraloma Ave. 
Anaheim, CA 92803 

(714)632-3729 

AIM 

Circle 209 



Synertek Systems Corp. 

PO Box 522 

3050 Coronado Drive 

Santa Clara, CA 95052 

(408)984-8900 
SYM 
Circle 2 10 

T.T.I. 

PO Box 2328 
Cookeville, TN 38501 
(615)526-7579 
AIM, KIM, SYM 
Circle 2 1 1 

Accessories 

Compas Microsystems 
224 SE 16th St. 

PO Box 687 

Ames, I A 50010 

(515)232-8187 

DAIM — Disk system for 

Rockwell AIM 65. Uses 

Rockwell expansion 

motherboard. 

Circle 2 12 

Connecticut Micro- 
Computer Inc. 

150 Pocono Rd. 

Brookfield, CT 06804 
(203)775-9659 
AC Remote Controller for 
KIM, AIM 65 
Circle 213 

Digital Service & Design 
PO Box 741 
Newark, OH 43055 
Super ELF RAM card 

Circle 2 14 

Elfwares 
608 Clark 

Farmington, NM 87401 

(505)325-9584 

Packaged software for ELF 

Circle 2 15 



Personal 

Computers 

Apple Computer Inc. 
10260 Bandley Dr. 
Cupertino, CA 95014 

(408)996-1010 
Circle 216 

Atari Consumer Division 
1265 Borregas 
Sunnyvale, CA 94086 

1-800-538-8547 
Circle 217 

Commodore Business 

Machines 

3330 Scott Blvd. 

Santa Clara, C A 9505 1 

(408)727-1130 
Circle 218 

Compucolor Corp. 

PO Box 569 
Norcross, GA 30091 
Circle 2 19 

Ohio Scientific Inc. 

1333 S. Chillicothe Rd. 
Aurora, OH 44202 

(216)562-3101 
Circle 220 

Radio Shack 

1400 One Tandy Center 

Fort Worth, TX 76102 

(817)390-3272 
Circle 22 1 

Texas Instruments 
Consumer Relations 
PO Box 53 
Lubbock, TX 79408 

Circle 222 
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Synertek Systems 
SYM-1 Microcomputer 
and support 



The Complete 
Microcomputer 
System 




ment; low-cost development system; 
and acting like an intelligent terminal 
for time-sharing systems. 

Future Trends 

We can expect at most minor 
changes in single-board computers. 
There will be new CPUs, larger mem- 
ories and more ROM-based software. 
The total volume in the market is not 
large enough to justify major expen- 
ditures on either hardware or software. 
Costs appear to be rising somewhat 
because of general inflation but no 
major changes are occurring. 

Appliance computers, on the other 
hand, are a large enough market to en- 
courage the development of numerous 
improvements. We are already seeing a 
much higher quality of software from 
sources like Microsoft and Digital 
Research. Applications software, par- 
ticularly in the business area, is begin- 
ning to be widely available. Software 
publishers, who produce mass-mar- 
keted programs in the way that other 
publishers produce books and records, 
are now organizing distribution net- 
works. The appliance computer will 
rapidly move from being an interesting 
toy to being a general computer system 
capable of a variety of applications, as 
more and better software and hardware 
support appears. 

Selecting a Computer 

In general, if you want to build a 
controller, I strongly recommend the 
purchase of a single-board computer. 
You can get at the input/output far more 
easily than you can on an appliance 
computer and you may even be able to 
use the single-board computer as a pro- 
totype of the final produce. A 
particular nice configuration is the 
Rockwell AIM-65, since it has full 



typewriter-style keyboard, a thermal 
printer, an on-board alphanumeric 
display (20 characters) and a monitor 
that allows mnemonic entries and pro- 
vides reasonable debugging facilities. 
The AIM-65 also has room for on- 
board ROM and PROM and for an 
optional assembler and Basic interpret- 
er. Its only real disadvantages are its 
dependence on the 6502 microproces- 
sor and its relatively limited support. A 
more strictly learning-oriented system 
with excellent documentation is the 
Heath ET-3400, based on the Motorola 
6800 microprocessor. 

If you want to do more than just build 
a controller, I recommend the appli- 
ance computer. External input/output 
is more difficult but there is far more 
documentation and support. Besides, 
you can always justify its purchase on 
the basis of educational applications, 
home accounting or game playing. Of 
the most popular variations, the Radio 
Shack TRS-80 is the least expensive, 
best supported and most widely sold 
and serviced. The Apple II, on the other 
hand, is much easier to expand and is 
much better packaged. Either makes a 
great Christmas present, particularly if 
you buy it for yourself as a tax-deduct- 
ible development system. 

One warning note: don't try to go too 
far with either type of computer. There 
is no sense building a $10,000 system 
out of single-board of appliance 
computer. They simply do not provide 
a sound enough base electrically or 
mechanically, and their software is also 
far from professional in quality. You 
can easily end up with a jerry-build, 
awkward, low-quality system that costs 
just as much as one that has been built 
and integrated professionally. Set your- 
self a goal in terms of how far you will 
expand your system and hold to it. □ 



SAVE 

10 TO 38% (SINGLE QUANTITY) 

♦LIMITED TIME OFFER 

Single-Headed • Double-Headed 

Shugart/IBM-compatible 

8" Flexible Disk Drives & 
Slimline Flexible Disk 
Subsystems 

■ With design features which have established the 
Remex drives as the most intelligent, reliable and 
complete line of 8" flexible disk drives now available. 




SLIMLINE 8" FLEXIBLE DISK SUBSYSTEM 

■ Rack-mount or desk top enclosure (shown above). 

■ Built-in power supply. 

■ Available with one or two single- or dual-headed 
drives, standard or intelligent cost effective master/ 
slave J ’ 



STANDARD 8" FLEXIBLE DISK DRIVE 

Single-Headed • Dual-Headed 

■ Up to 1.6 Mbytes (1.26 Mbytes IBM Format) per drive. 

■ Single- or double-density. 

■ Media compatible with IBM-33FD and 43FD drives. 

■ Physically and electrically interchangeable with 
Shugart SA800/801R & SA850/851R units. 





INTELLIGENT COST EFFECTIVE MASTER/SLAVE 
SUBSYSTEM & S-100 INTERFACE 



■ Single- or dual-head, single- or double-density. 

■ Up to four drives in single subsystem (5 Mbytes for- 
matted). 

■ Microprocessor-based controller/formatter. 

■ IBM-compatible— 26, 15 or 8 soft sector formats. 

■ Media compatible with IBM 4964 drive. 

■ Fully automatic functions: 

• Disk initialize/formatting with one command. 

• Sector sizing— without manual switch intervention. 

• Data block transfer, from one sector to one entire 
surface. 

• Copy function— drive- to-drive or within same drive. 

‘Call now for special savings on single- and dual- 
headed standard 8" drives: 



DOMESTIC 



It TEH EXPORT 

(E.M.C.) 

Sales & Service: 

P.O. Box 8766 175 5th Ave., Suite 1101 

Newport Beach. CA 92660 New York. NY 10010 
(714) 551-1325 (212) 737-6712 



DEALER INQUIRIES INVITED 

QUANTITY DISCOUNTS AVAILABLE 

; I AM INTERESTED IN: 

j 1. □ Slimline Subsystem with Built-In Power Supply 

For use with: 

□ Apple □ TRS-80t □ S-100 , 

! □ DEC □ D.G. □ Other 

| Model 

! 2. □ Intelligent Slimline Subsystem for S-100 
| 3. □ Drive Only □ Standard □ Intelligent 

! 4. □ Have an Applications Engineer call me. 

• 5. □ Send additional information. 

S Please print: 

! Name 

! Company 

! Address 

j City State 

S Zip Code Tel. 

I ‘Mail coupon before June 30. 1380 for ad discounts. 

+TRS-80 Trademark of Radio Shack. Tandy Corp. 
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Inventory Simulation 



BY ADRIAN WOODS 



T wo questions businesses frequently 
face are “When should a particular 
component, product or raw material be 
reordered?” and “In what quantity?” 
In a previous article on “Economic 
Order Quantity” (November 1979 
PC), these questions were answered by 
using one of the four EOQ models: 
classical EOQ; EOQ with lead times; 
EOQ with back orders; and EOQ with 
stochastic demand. Each of these 
models refers to common business sit- 
uations. The last one introduces a ran- 
dom element for demand, giving a 
reasonable solution to many real world 
stock control problems. 

This program extends the idea of 
uncertainty, allowing examination of 
situations where neither demand nor 
delivery time is known. The program 
lets you specify a range of reorder 
points and reorder quantities and calcu- 
lates the average daily costs of each 
combination of reorder level and re- 
order quantity. 

You can use the program in several 
ways. First, it can indicate whether 
your present reorder level and quantity 
gives you the lowest average cost com- 
bination. Second, you may use the 
program in situations where you do not 
know the optimum combination and 
you wish to try several alternatives. 
You can also monitor the sensitivity of 
a particular inventory item in terms of 
holding costs, shortage costs or order- 
ing costs by examining “average cost” 
variance following changes in those 
categories. 

On running the program, you are re- 
quired to enter certain information the 
computer needs to perform the simula- 
tion. 

The first of these inputs are data con- 
cerning the distribution of demand. 
For example, over the last several 
months you have observed the daily 
demand for an inventory item to be as 
listed in Figure 1 . The numbers indicate 
that you distributed between I and 5 
items on 10 of your 95 days worth of 



records; between 6 and 10 items for 17 
of those days; between 16 and 20 items 
for 23 of those days; and so on. 

The program first prompts you for 
the number of class intervals you have 
set for the inventory item in question. 
In the example, there are 7 class inter- 
vals (1-5, 6-10, 11-15, 16-20, 21-25, 
26-30, 31-35). The program then re- 
quests the midpoint for each interval 
and the cumulative frequency associ- 
ated with that class interval. The first 
midpoint would be 3, with 10 the 
cumulative frequency. For the second 
class interval, 8 is the midpoint and 27 
the cumulative frequency. Enter the 
midpoint and cumulative frequency for 
each class interval. 



Your next inputs relate to the distri- 
bution of time for orders to arrive. To 
continue the example, let’s say that the 
time taken to receive your orders of the 
inventory item was distributed as 
shown in Figure 2. Two of your orders 
took between 1 and 3 days to arrive; 
five orders took between 4 and 6 days; 
1 1 orders arrived in from 7 to 9 days; 
and so on. 

The inputting of this information is 
similar to the operation you performed 
for indicating distribution of demand. 
First, you enter the number of class 
intervals (5), then each class interval 
midpoint and its associated cumulative 
frequency. 

You next enter the holding cost per 



Program Listing 



ICO REM STORES STIMULATION PROGRAM 
200 REM ******************* 

300 REM DIMENSION ARRAYS 

400 DIM D ( 20 ) » D1 ( 20 ) # T ( 20 ) » T1 ( 20 ) 

500 REM ARRAY D MIDPONTS OF DEMAND: D1 CUMALATIVE FREQUENCY FOR DEMAND 

600 REM ARRAY T MIDPOINTS FOR LEAD TIME: T1 CUMALATIVE FREQUENCY FOR LEAD TIME- 

700 G0SUB15300 

900 PR I NT " C HOM J C CUD I C CUD 3 i CUD 3 C CUD 3 C CUD 3 C CUD 3 C CUD 3 C CUR 3 C CUR 3 C CUR 3 C CUR 3 C RVS 3 STOR 
ES SIMULATION PROGRAM" 

1000 FOR W1 =1 TO 200: NEXT W1 

1100 REM INPUT DATA ******************* 

1200 GOSUB 14400: REM GRAPHICS SUBROUNTINE FOR INPUTS 

1 300 PRINT" C CLR 3 l CUD 3 C CUD 3 C CUD 3 C CUD 3 C CUD 3 £ CUD 3 C CUD 3 C CUD 3 C CUD 3 C CUD 3 C CUD 3 C CUR 3 PLE 
ASE INPUT NUMBER OF CLASS I NTERVALS C CUR 3 FOR DEMAND L CUD 3 [CUD 3 C CUD 3 C CUR 3 Z CUR 3 ” 
1400 INPUT D: REM DEMAND CLASS INTERVALS 
1500 GOSUB 14400 

1700 PRINT’PLEASE INPUT MIDPOINT OF CLASS INTERVAL AND ASSOCIATED CUMULATIVE" 
1800 PR I NT " FREQUENCY [ CUD 3 C CUD 3 C CUD 3 C CUD 3 C CUD 3 C CUD 3 " 

1900 FOR A=1 TO D 

2000 INPUT D( A ) * D1 ( A ) : REM MID POINTS AND CUMULATIVE FREQUUENCY 
2100 NEXT A 
2200 G0SUB14400 

2300 PR I NT "PLEASE INPUT NUMBER OF CLASS INTERVALS FOR THE LEAD TIME" 

2400 PR I NT " C CUD 3 C CUD 3 C CUD 3 C CUD 3 C CUD 3 " 

2500 INPUT T: REM NUMBER OF CLASS INTERVALS FOR LEAD TIME 
2600 GOSUB 14400 

2800 PR I NT "PLEASE INPUT MIDPOINTS OF CLASS INTERVALS AND THEIR ASSOCIATED " i 
2900 PRINT" CUMULATIVE FREQUENCY" 

3000 PR I NT " C CUD 3 C CUD 3 L CUD 3 C CUD 3 C CUD 3 " 

3100 REM READ IN LEAD TIME DISTRIBUTION 
3200 FOR A=1 TO T 

3300 INPUT T( A ) # T1 ( A ) : REM MID POINTS AND CUMALATIVE FREQUENCY FOR LEAD TIME 
3400 NEX TA 

3500 FOR A= 1 TOD: D1(A)=D1(A)/D1(D): NEXT A 
3600 FOR A=1 TOT :T1(A)=T1(A)/T1(T) : NEXTA 
3700 GOSUB 1 4400 

3800 PR I NT "PLEASE INPUT HOLDING COST PER DAY " : INPUTH: REM HOLDING COST 
4000 GOSUB 14400 

4100 PRINT"PLEASE INPUT ORDERING COST PERORDER" : INPUTO 
4300 COSUB 14400 

4400 PR I NT "PLEASE INPUT SHORTAGE COST "i INPUTS* REM SHORTAGE COST 

continued 
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4600 GOSUB 14400 

4700 PR I NT "PLEASE INPUT FIRST REORDER POINT"* I NPUTR : REN FIRST REORDER POINT 
4900 G0SUB14400 

5000 PR I NT "PLEASE INPUT LAST REORDER POINT" : INPUTR1 s REM LAST REORDER POINT 
5200 G0SUB14400 

5300 PRINT "PLEASE INPUT REORDER STEP" : INPUTR2: REM REORDER STEP 
5500 GOSUB 14400 

5600 PRINT’PLEASE INPUT FIRST REORDER QUANTITY" * INPUTQ 
5700 REM Q=FIRST REORDER QUANTITY 
5900 G0SUB14400 

6000 PR I NT "PLEASE INPUT LAST REORDER QUANTI TY" * INPUTQ1 
6100 REM Ql= LAST REORDER QUANTITY 
6300 G0SUB14400 

6400 PR I NT "PLEASE INPUT REORDER STEP" : INPUTQ2 
6500 REM Q2= REORDER STEP 
6700 G0SUB14400 

6800 PR I NT "PLEASE INPUT STARTING INVENTORY" * INPUTY: REM STARTING INVENTORY 
7000 G0SUB14400 

7100 PR I NT" PLEASE INPUT NUMBER OF DAYS" ; INPUTN; REM NUMBER OF DAYS 

7300 PRINT"TO SUPPRESS DAILY ANALYSIS INPUT 1 ELSE INPUT ANY NUMBER" 

7400 INPUT F2; REM FLAG FOR DAILY ANALYSIS 
7500 IF F2=l GOTO 7700 

7600 PRINT" CCLR] INVENTORY "# "ORDER" > "DEMAND" » "DAY" 

7700 REM 

7800 REM START STIMULATION 
7900 FOR Z=RT0R1STEPR2 
8000 F0RY-QT0Q1STEPQ2 

8100 J«0«K-0»I»V»REM SET DAYS AND COST TO ZERO;SET INITIALISE INVENTORY 
8200 FI =0: REM SET FLAG FOR ORDER 0 NO OUTSTANDING ORDER; 1 WAITING FOR ORDER 
8300 FORJ=lTONi REM START CIRCLE AND STEP THROUGH 
8400 GOSUB 11 300; REM SUBROUNTINE FOR DEMAND 

8500 GOSUB 12000; REM SUBROUTINE TO CHECK IF ORDER IS ARR1VINC TODAY 

8600 I = I+02-DE; REM INCREASE INVENTORY BYORDER AND DECREASE BY TODAY'S DEMAND 

8700 IF F2=l GOTO 9000; REM CHECK DAILY ANALYSIS FLAG 

8800 PRINT" CCUD3 CCUDJ [CUD I " i It 02# DE» J 

8900 FOR Wl=l TO 200; NEXT W1 

9000 11=11+1 

9100 02=0; REM SET ORDER BACK TO ZERO 

9200 IF I<R THEN COSUB 12400; REM CHECK TO SEE IF REORDER LEVEL REACHED 
9300 IF I<0 THEN GOSUB 13500; REM CHECK THAT INVENTORY IS POSITIVE 
9400 GOSUB 13900; REM UPDATE HOLDING COSTS 
9500 NEXTJ 

9600 REM NUMBER OF DAYS FOR STIMULATION REACHED 

9700 HI=HI/N; 01=01/N;S1=S1/N; REM AVERAGE COST COMPONENTS 

9800 T2=HI+S1+01 ; REM AVERAGE COST 

9900 HI=0;S1=0; 01=0; REM RESET COST COMPONENTS 

10000 F0RU=1T05; PRINT" ";NEXTU 

10100 PRINT" CCLR 1 [CUD! C CUD 3C CUD 3 C CUD 3 REORDER LEVEL" »Z 

10200 PR I NT "REORDER QUANTITY" #Y 

10300 PRINT-AVERAGE C0ST"»T2 

10400 PRINT"FINAL INVENTORY LEVEL"# I 

10500 PR I NT " AVERAGE DAILY INVENTORY"? Il/N 

10600 I 1=0; REM RESET INVENTORY 

10610 PR I NT "PLEASE INPUT ANY CHARACTER TO CONTINUE" 

10620 CETA*;IF A$="" THEN 10620 
10700 NEXTY 
10800 NEXTZ 

10900 PR I NT ” C CLR 1 C CUD 3 C CUD 3 C CUD 3 C CUD ] C CUD J C CUR 3 C CUR 3 C CUR 3 C CUR 3 L CUR J END OF THIS 
STIMULATION" 

11000 PRINT’Xfcfc" 

11100 GOTO 16000 

11200 REM DEMAND SUBROUTINE************* 

11300 X=RND ( 1 ) ; REM RANDOMISE FOR DEMAND 

11400 FOR A=1 TO D; IF D1(A)>X THEN GOTO 11600 
11500 NEXT A 

11600 DE=D(A) ; REM DEMAND SET TO DE 
11700 RETURN 

11800 REM ***************************** 

11900 REM SUBROUTINE TO CHECK IF ORDER IS ARRIVING TODAY*************** 

12000 IF J=K THEN 02=Y;F1=0; REM GET ORDER AND RESET REORDER FLAG 
12100 RETURN 

12200 REM ********************** 

12300 REM REORDER SUBROUTINE************ 

12400 IF Fl=i THEN 13200; REM CHECK TO SEE IF ORDER IS OUTSTANDING 
12500 X=RND ( 2 ) ; REM RANDOMISE 

12600 REM FIND HOW MANY DAYS FOR ORDER TO ARRIVE 
12700 FOR A= 1 TO T; IF T1(A)>X THEN GOTO 12900 
12800 NEXT A 

12900 K=J+T < A ) ; REM DAY FOR ORDER TO ARRIVE 
13000 FI =1; REM SET ORDER FLAG TO ONE 
13100 01=01+0; REM INCREASE ORDER COST TOTAL 
13200 RETURN 

13300 REM ******************** 

13400 REM SUBROUTINE FOR SHORTAGE COSTS 

13500 S1=S1-(S*I); REM INCREASE TOTAL SHORTAGE COSTS 

13600 RETURN 

13700 REM ********************** 

13800 REM HOLDING COSTS SUBROUTINE************* 

13900 IF 1(0 GOTO 14100; REM CHECK TO SEE IF INVENTORY IS POSITIVE 
14000 HI =HI+ ( I*H ) 

14100 RETURN 

14200 REM ******GRAPH I CS***** ************ 

14300 REM GRAPH HICS FOR INPUT 

1 4400 PR I NT " C CLR 3 C CUD 3 C CUD J C CUD 3 C CUD 3 C CUD 3 C CUD 3 C CUD 3 C CUD 3 C CUD 3 C CUR ] " 

14500 RETURN 

15300 PRINT" [ CLR J ?<&&&&& " 

15400 PRINT" CCUU1 " ? 

15500 FOR Gl = l TO 15; PRINT"8,CCULI " ; NEXTG1 
15600 

15700 PRINT" CCULKCUUD8." 

15800 FOR Gl=l T018; PRINT" CCULJ CCUUJ&" # ; NEXTGl 
15900 RETURN 
16000 END 



Demand 


Frequency 


Cumulative 

Frequency 


1-5 


10 


10 


6-10 


17 


27 


11-15 


23 


50 


16-20 


21 


71 


21-25 


14 


85 


26-30 


8 


93 


31-35 


2 


95 



Figure 1. Inventory Demand 
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7 
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11 


18 


10-12 


3 


21 


13 and above 1 


22 


Figure 2. Inventory Delivery 



day; the ordering cost per order; the 
shortage cost; reorder range and step 
(for instance, you might want to in- 
vestigate the effects of a reorder level 
that goes from 20 to 100 in steps of 10); 
reorder quantity range and step (say, 
from 40 items to 140 items in steps of 
20 items); starting inventory; and 
number of days that you wish the pro- 
gram to simulate. The longer you let the 
simulation run, the better the results. 

The last requested input is a flag. 
Entering a "1” suppresses the daily 
mode and you will receive only a 
summary table indicating reorder level, 
reorder quantity, average cost per day, 
final inventory level and average in- 
ventory level for the period of the 
simulation. If you input any number 
except “1,” you receive daily in- 
ventory output indicating analysis of 
daily inventory, order quantity and 
status, demand for the item and the day 
of the simulation; you also receive the 
output summary mentioned above. 

Sample Run 1 utilizes the daily 
analysis function of the simulation. 
From this run the daily pattern of 
demand and orders can be clearly iden- 
tified. At the end of the run, average 
cost and average inventory is given and 
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this, along with the daily analysis, 
gives a picture of the underlying pro- 
cess. Although the optimum combina- 
tion of reorder level and quantity is not 
investigated, the run demonstrates that 
given the existing parameters for de- 
mand, lead time and costs, nothing is 
seriously wrong with the reorder level 
or quantity. 

Sample Run 2 analyzes several com- 
binations of reorder level and quantity 



to point the way towards an optimum 
combination. Only part of the run is 
shown. 

Two points emerge from this run. 
First, low reorder levels and quantities 
lead to large negative stocks. This sit- 
uation is rectified in Sample Run 3 by 
increasing both reorder level and re- 
order quantity. Sample Run 3 indicates 
that the new parameters are more suit- 
able than the previous ones. 



In Sample 4, the low shortage cost is 
changed to examine the impact of this 
on average cost. 

The program, written for a Com- 
modore Pet, uses some of the Pet’s 
special graphics in output formatting. 
The program can be modified to give 
line printer output but screen output is 
feasible for running through many 
combinations without generating pages 
of output. □ 



Sample Run 1 

PLEASE INPUT NUMBER OF CLASS 
INTERVALS FOR DEMAND 7 

PLEASE INPUT MIDPOINT OF CLASS 
INTERVAL AND ASSOCIATED 
CUMULATIVE FREQUENCY 



60 


7 


80 


21 


100 


39 


120 


68 


140 


84 


160 


95 


180 


100 



PLEASE INPUT NUMBER OF CLASS 
INTERVALS FOR THE LEAD TIME 
5 

PLEASE INPUT MIDPOINTS OF CLASS 
INTERVALS AND THEIR ASSOCIATED 
CUMULATIVE FREQUENCY 

1 6 

2 26 

3 66 

4 86 

5 100 

PLEASE INPUT HOLDING COST PER DAY 
1 

PLEASE INPUT ORDERING COST PERORDER 
20 

PLEASE INPUT SHORTAGE COST 
5 

PLEASE INPUT FIRST REORDER POINT 

700 

PLEASE INPUT LAST REORDER POINT 

701 

PLEASE INPUT REORDER STEP 
100 

PLEASE INPUT FIRST REORDER QUANTITY 

700 

PLEASE INPUT LAST REORDER QUANTITY 

701 

PLEASE INPUT REORDER STEP 
100 

PLEASE INPUT STARTING INVENTORY 
500 

PLEASE INPUT NUMBER OF DAYS 
100 

TO SUPPRESS DAILY ANALYSIS INPUT 1 
ELSE INPUT ANY NUMBER 2 



INVENTORY 


ORDER 


DEMAND 


DAY 


360 


0 


140 


1 


1000 


700 


60 


2 


920 


0 


80 


3 


820 


0 


100 


4 


720 


0 


100 


5 


580 


0 


140 


6 


400 


0 


180 


7 


260 


0 


140 


8 


820 


700 


140 


9 


720 


0 


100 


10 


620 


0 


100 


11 


500 


0 


120 


12 


1140 


700 


60 


13 




880 


700 


120 


93 


740 


0 


140 


94 


600 


0 


140 


95 


480 


0 


120 


96 


340 


0 


140 


97 


240 


0 


100 


98 


120 


0 


120 


99 


740 


700 


80 


100 


REORDER 


LEVEL 


700 




REORDER 


QUANTITY 


700 




AVERAGE 


COST 


629 




FINAL INVENTORY 


LEVEL 


740 


AVERAGE 


DAILY INVENTORY 625.6 




END OF THIS 


STIMULATION 





##* 

READY * 



Sample Run 2 

PLEASE INPUT NUMBER OF CLASS 
INTERVALS FOR DEMAND 
7 

PLEASE INPUT MIDPOINT OF CLASS 
INTERVAL AND ASSOCIATED 
CUMULATIVE FREQUENCY 



3 


10 


8 


27 


13 


50 


18 


71 


23 


85 


28 


93 


33 


95 



PLEASE INPUT NUMBER OF CLASS 
INTERVALS FOR THE LEAD TIME 
5 

PLEASE INPUT MIDPOINTS OF CLASS 
INTERVALS AND THEIR ASSOCIATED 
i HJMIJL A T I V E FREQ IJ ENC Y 



2 




2 




5 




7 




8 




18 




11 




21 




14 




22 




PLEASE 


INPUT 


HOLDING COST 


PER DAY 


.2 








PLEASE 


INPUT 


ORDERING COST 


PERORDER 


10 








PLEASE 

.1 


INPUT 


SHORTAGE COST 




PLEASE 


INPUT 


FIRST REORDER 


POINT 


20 








PLEASE 


INPUT 


LAST REORDER 


POINT 


100 








PLEASE 


INPUT 


REORDER STEP 




10 








PLEASE 


INPUT 


FIRST REORDER 


QUANTITY 


40 








PLEASE 


INPUT 


LAST REORDER 


QUANTITY 



140 



PLEASE INPUT REORDER STEP 
20 

PLEASE INPUT STARTING INVENTORY 
50 

PLEASE INPUT NUMBER OF DAYS 
1000 

TO SUPPRESS DAILY ANALYSIS INPUT 1 
ELSE INPUT ANY NUMBER 1 



REORDER LEVEL 20 

REORDER QUANTITY 40 

AVERAGE COST 502.4673 

FINAL INVENTORY LEVEL -9970 

AVERAGE DAILY INVENTORY-5010 . 895 



REORDER LEVEL 20 

REORDER QUANTITY 60 

AVERAGE COST 377.2553 

FINAL INVENTORY LEVEL -7285 

AVERAGE DAILY INVENTORY-3759 ♦ 06 



REORDER LEVEL 20 

REORDER QUANTITY 80 

AVERAGE COST 253.023 

FINAL INVENTORY LEVEL -4995 

AVERAGE DAILY INVENTORY-2516.74 



REORDER LEVEL 20 

REORDER QUANTITY 100 

AVERAGE COST 143.4786 

FINAL INVENTORY LEVEL -2345 

AVERAGE DAILY INVENTORY-1421.555 

READY. 



Sample Run 3 

PLEASE INPUT NUMBER OF CLASS 
INTERVALS FOR DEMAND 
7 

PLEASE INPUT MIDPOINT OF CLASS 
INTERVAL AND ASSOCIATED CUMULATIVE 
FREQUENCY 



3 


10 


8 


27 


13 


50 


18 


71 


23 


85 


28 


93 


33 


95 



PLEASE INPUT NUMBER OF CLASS 
INTERVALS FOR THE LEAD TIME 
5 

PLEASE INPUT MIDPOINTS OF CLASS 
INTERVALS AND THEIR ASSOCIATED 
CUMULATIVE FREQUENCY 



2 




2 




5 




7 




8 




18 




11 




21 




14 




22 




PLEASE 


INPUT 


HOLDING 


COST PER DAY 


.2 








PLEASE 


INPUT 


ORDERING 


COST PERORDER 


10 








PLEASE 


INPUT 


SHORTAGE 


COST 



.1 

continued 
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PLEASE INPUT FIRST REORDER POINT 
60 

PLEASE INPUT LAST REORDER POINT 
160 

PLEASE INPUT REORDER STEP 
20 



PLEASE INPUT SHORTAGE COST 
.5 

PLEASE INPUT FIRST REORDER POINT 
20 

PLEASE INPUT LAST REORDER POINT 
100 



PLEASE INPUT FIRST REORDER QUANTITY PLEASE INPUT REORDER STEP 

140 40 



PLEASE INPUT LAST REORDER QUANTITY 
240 



PLEASE INPUT FIRST REORDER QUANTITY 
100 



PLEASE INPUT REORDER STEP 
20 



PLEASE INPUT LAST REORDER QUANTITY 
240 



PLEASE INPUT STARTING INVENTORY 
50 



PLEASE INPUT REORDER STEP 
20 



PLEASE INPUT NUMBER OF DAYS 
1000 

TO SUPPRESS DAILY ANALYSIS INPUT 1 
ELSE INPUT ANY NUMBER 1 



REORDER LEVEL 
REORDER QUANTITY 
AVERAGE COST 
FINAL INVENTORY LEVEL 



60 

140 

9.45820001 

-35 



AVERAGE DAILY INVENTORY-8.23 



REORDER LEVEL 60 

REORDER QUANTITY 160 

AVERAGE COST 10.8701 

FINAL INVENTORY LEVEL 40 

AVERAGE DAILY INVENTORY 29.145 



REORDER LEVEL 60 

REORDER QUANTITY 180 

AVERAGE COST 12.4669 

FINAL. INVENTORY LEVEL 30 

AVERAGE DAILY INVENTORY 32.44 



REORDER LEVEL 60 

REORDER QUANTITY 200 

AVERAGE COST 13.8946 

FINAL INVENTORY LEVEL 45 

AVERAGE DAILY INVENTORY 45.65 



REORDER LEVEL 60 

REORDER QUANTITY 220 

AVERAGE COST 15.3117 

FINAL INVENTORY LEVEL 165 

AVERAGE DAILY INVENTORY 56.72 



REORDER LEVEL 60 

REORDER QUANTITY 240 

AVERAGE COST 17.2519 

FINAL INVENTORY LEVEL -10 

AVERAGE DAILY INVENTORY 68.26 



PLEASE INPUT STARTING INVENTORY 
50 

PLEASE INPUT NUMBER OF DAYS 
1000 

TO SUPPRESS DAILY ANALYSIS INPUT 1 
ELSE INPUT ANY NUMBER 1 



REORDER LEVEL 20 

REORDER QUANTITY 100 

AVERAGE COST 659.8419 

FINAL INVENTORY LEVEL 
AVERAGE DAILY INVENTORY-1316 . 95 



-2280 



REORDER LEVEL 20 

REORDER QUANTITY 120 

AVERAGE COST 71.9625 

FINAL INVENTORY LEVEL -70 

AVERAGE DAILY INVEN T OR Y- 140 



REORDER LEVEL 20 

REORDER QUANTITY 140 

AVERAGE COST 25.0599 

FINAL INVENTORY LEVEL 70 

AVERAGE DAILY INVENTORY-33.915 



REORDER LEVEL 20 

REORDER QUANTITY 160 

AVERAGE COST 20.84 

FINAL INVENTORY LEVEL -55 

AVERAGE DAILY INVENTORY-14.7 



REORDER LEVEL 20 

REORDER QUANTITY 180 

AVERAGE COST 24.8607 

FINAL INVENTORY LEVEL -50 

AVERAGE DAILY INVENTORY-14.235 



REORDER LEVEL 20 

REORDER QUANTITY 200 

AVERAGE COST 22.4773 

FINAL INVENTORY LEVEL -55 

AVERAGE DAILY INVENTORY 2.965 



Sample Run 4 

PLEASE INPUT NUMBER OF CLASS 
INTERVALS FOR DEMAND 
7 

PLEASE INPUT MIDPOINT OF CLASS 
INTERVAL AND ASSOCIATED 
CUMULATIVE FREQUENCY 



3 


10 


8 


27 


13 


50 


18 


71 


23 


85 


28 


93 


33 


95 



PLEASE INPUT NUMBER OF CLASS 
INTERVALS FOR THE LEAD TIME 
5 

PLEASE INPUT MIDPOINTS OF CLASS 
INTERVALS AND THEIR ASSOCIATED 
CUMULATIVE FREQUENCY 

2 2 

5 7 

8 18 

11 21 

14 22 



REORDER LEVEL 20 

REORDER QUANTITY 220 

AVERAGE COST 21.5196 

FINAL INVENTORY LEVEL 100 

AVERAGE DAILY INVENTORY 25.39 



REORDER LEVEL 20 

REORDER QUANTITY 240 

AVERAGE COST 23.3715 

FINAL INVENTORY LEVEL -30 

AVERAGE DAILY INVENTORY 13.545 



REORDER LEVEL 60 

REORDER QUANTITY 100 

AVERAGE COST 589.2444 

FINAL INVENTORY LEVEL -2560 

AVERAGE DAILY INVENTORY-1175.465 



REORDER LEVEL 60 

REORDER QUANTITY 120 

AVERAGE COST 74.9492001 

FINAL INVENTORY LEVEL -345 

AVERAGE DAILY INVENTORY-140. 945 



REORDER LEVEL 60 

REORDER QUANTITY 140 

AVERAGE COST 40.3035 

FINAL INVENTORY LEVEL -15 

AVERAGE DAILY INVENTORY-63.895 



PLEASE INPUT HOLDING COST PER DAY 
• 2 

PLEASE INPUT ORDERING COST PERORDER 
10 



REORDER LEVEL 60 

REORDER QUANTITY 160 

AVERAGE COST 28.6588 

FINAL INVENTORY LEVEL -170 

AVERAGE DAILY INVENTORY-34.65 



The days of complicated, unreliable, 
dynamic RAM are gone: 




INTRODUCING 



the ultrabyte memory board 

^ 1 O Q Q R l complete kit \ 

^ | w W y with 16K memory J 

Netronics consistently offers innovative products at un- 
beatable prices. And here we go again — with JAWS, 
the ultrabyte 64K SI 00 memory board. 

ONE CHIP DOES IT ALL 
JAWS solves the problems of dynamic RAM with a 
state-of-the-art chip from Intel that does it all. Intel's 
single chip 64K dynamic RAM controller eliminates 
high-current logic parts . . . delay lines . . . massive 
heat sinks . . . unreliable trick circuits. 
REMARKABLE FEATURES OF JAWS 



Look what JAWS offers you: Hidden refresh . . . fast 
performance ... low power consumption . . . latched 
data outputs . . . 200 NS 4116 RAMs . . . on-board 
crystal . . . 8K bank selectable . . . fully socketed . . . 
solder mask on both sides of board . . . designed for 
8080, 8085, and Z80 bus signals . . . works in Explorer, 
Sol, Horizon, as well as all other well-designed S100 
computers. 

I GIVE YOUR COMPUTER A BIG BYTE OF MEMORY 
POWER WITH JAWS — SAVE UP TO $90 ON 
INTRODUCTORY LIMITED-OFFER SPECIAL PR/CESI 

UNDECIDED? TRY A WIRED 16K JAWS IN YOUR COMPUTER ON OUR 
W-DAY MONEY- BACK OFFER (SPECIFY YOUR COMPUTER) 



From Connecticut Or For Assistanc 

I5METR0NICSI 



CONTINENTAL U S A. CREDIT CARD BUYERS OUTSIDE CONNECTICUT CALL 

CALL TOLL FREE 800-243-7428 

From Connecticut Or For Ataistance. (2031 354-9375 

IRESEARCH & 
IDEVELOPMENTLTDi 

Dept. PC7, 333 Litchfield R<±, New Milford, CT 06776 

Please send the items checked below: 

□ JAWS 16K RAM kit. No. 6416, $199.95 * 

□ JAWS 16K RAM fully assembled, tested, burned in, 

No. 6416W, $229.95 * 

□ JAWS 32K RAM kit. No. 6432, (reg. price $329.95), 

SPECIAL PRICE $299.95.* 

□ JAWS 32K RAM fully assembled, tested, burned in, 

No. 6432W, (reg. price $369.95), SPECIAL PRICE 
$339.95.* 

□ JAWS 48K RAM kit. No. 6448, (reg. price $459.95). 

SPECIAL PRICE $399.95 * 

□ JAWS 48K fully assembled, tested, burned in, No. 

6448W, (reg. price $509.95), SPECIAL PRICE 
$449.95.* 

G JAWS 64K RAM kit, No. 6464, (reg. price $589.95). 

SPECIAL PRICE $499.95 * 

□ JAWS 64K RAM fully assembled, tested, burned in. 

No. 6464W, (reg. price $649.95), SPECIAL PRICE 
$559.95 * 



G Expansion kit. JAWS 16K RAM module, to expand 
any of the above in 16K blocks up to 64K, No. 16EXP, 
$129.95.* 

*AII prices plus $2 postage and handling. Connecticut 
residents add sales tax. 

Total enclosed: $ 

G Personal Check G Money order or Cashiers Check 
G VISA G MASTER CHARGE (Bank No ) 



Acct. No. Exp. Date 



Signature 




Print Name 




Address 




City 




State 


Zip 


G Send me more information 
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The Rockwell AIM-65 
For professional learning, designing and work, Rockwell’s AIM-65 
microcomputer gives you an easy, inexpensive headstart! The AIM’s 
full-size keyboard, true alpha-numeric display and on-board printer 
give you all of the peripherals associated with a large development 
system, yet AIM is priced lower than the first circuit board would cost 

for such a system. 

4K AIM-65 $515.00 

AIM Enclosure $43.50 

Protects the AIM 65 from damage while maintaining convenient 
access to on-board switches and printer. 

Power Supply for the AIM 65 by MTU $79.95 

This power supply from Micro Technology Unlimited provides the 
power and cooling capacity needed to run your AIM at peak efficiency. 

AIM BASIC ROM $100.00 

Written by microsoft, Rockwell AIM-65 8K BASIC is contained in two 

easy-to-install ROM circuits. 

AIM-65 Assembler ROM $85.00 

Just plug it into the AIM 65 board and your AIM is ready to do all the 
busy work of creating 6502 Machine-Language programs. 

CompuMart’s Complete AIM-65 System. $850.00 

Save $28 

Includes a 4K AIM 65 with BASIC and Assembler, an MTU power 
supply, Sanyo tape recorder and enclosure. 

NEW! PASCAL for your AIM $125.00 

Remove the BASIC interpreter chips, plug in the two PASCAL chips 
and your AIM is running in PASCAL. 

Rockwell Motherboard for the AIM $ 1 95 .00 

Want to expand your AIM and keep Rockwell quality? Purchase the 

Motherboard from CompuMart. 

and 

SERVICE 

and 

TOLL FREE 
ORDER MG 



FREE 

» Mar 

RETURN 

ana 




ATE DE- 
LIVERY 

and ■ 

KIM 



... i 



KIM-1 Microcomputer $179.00 

From MOS Technology, a division of Commodore. This famous sin- 
gle board based computer comes to you fully assembled and tested - 
simply attach a power supply and you’re ready to start computing. 
Includes three informative manuals FREE. 

Micro Technology Power Supply $35.00 

The perfect mate for a small KIM system. Comes fully assembled, 
tested, and enclosed in a Bakelite Box. 

KIM 1 with power supply $204.00 

Save $10 when purchased together! 

KIM Enclosure $23.50 

Give your KIM-1 a professional appearance and protect it from shorts 
and physical damage. 

Current Loop/IRS-232 Adaptor $24.50 

For general interfacing applications. (KIM-1 to printer, KIM-1 to 
modem, etc.) 

Sanyo Cassette Recorder $ 5 5 .00 

Perfect for your KIM. Works great. 

Books on KIM. (The following three books are included FREE 
when you buy a KIM. You may purchase them separately however). 

6502 Programming Manual $9.95 

6502 Hardware Manual $9.95 

KIM User Manual $9.95 

First Book of KIM $8.95 



Buy direct from CompuMart and get more than you pay for. 

270 THIRD STREET, COMPUMART DGE, MA. 02142 

Toll Free 1-800-343-5504 [Ext. 314] In Mass. 61 7-491 -2700 
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CIRCLE 22 



Cassette 
T ape Labels 




F or years I've been trying to get my 
cassette tape file into order. I'm 
always shuffling programs onto differ- 
ent tapes and neglecting to update the 
label. Because the labels on the tapes 
have been revised so many times, many 
are unreadable. 

This program prints out a neat label 
that will fit inside the two-piece Norel- 
co-style cassette box. It also prints out a 
label for each side of the cassette tape 
itself. The label can easily be affixed to 
the cassette tape using rubber cement. 

This program was written for the 
Commodore Pet, but with a few revi- 
sions could be used with other com- 
puters. 

In the listing, the words in brackets, 
such as [DOWN], stand for cursor con- 
trol characters. For the most part you 
can ignore them or revise them to func- 



tion on your computer. 

CHR$( 1) in lines 2170, 3050, 3300 
and 3320 sets the Commodore Printer 
to print in enhanced mode. CHR$( 129) 
in lines 2180, 2240, 3060, 3310 and 
3330 turns the enhanced mode off. 

Program Notes 

Lines 100-175: Instructions. 

Lines 500-620: Get the program 
names. 

Lines 540-550: These two lines 
check for an input. If there is a return 
with no input then A$=* ’ and the pro- 
gram knows that you are ready to pro- 
ceed. Without cursor control, you 
might want to do this differently. 

Lines 700-770: Oops! You entered 
too many programs, or the programs 
that you entered are too long. The pro- 
gram will only accept 36 characters. 



Lines 800-870: Set up strings for 
printout. 

Lines 1000-1300: Lets you select 
what you want printed out. 

1 . The cassette box label only 

2. The cassette tape label only 

3. Both labels 

Lines 2000-2340: Does the actual 
printing of the cassette box label. 

Lines 3000-3420: Prints out the cas- 
sette tape label. 

Lines 3300-3320: You can place 
anything here. Maybe some identifica- 
tion or your address. □ 

Variables 

AS Inputs 

C$( 1 ) Programs on side 1 

C$(2) Programs on side 2 

L String length 

BL$ String of blanks 
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Program Listing 



0 REM ****************** 

1 REM SPRINT TAPE COVERS 

2 REM SSSSSSSSSSSSSSSSSS 



10 
100 
110 
120 
130 
140 
150 
160 
170 
200 
210 
500 
505 
510 
520 
530 
540 
550 
560 
570 
530 
590 
600 
610 
620 
630 
700 
705 
710 
720 
730 
740 
7 50 
760 
770 
800 
310 
320 
330 
840 
850 
350 
370 
1000 
1010 
1020 
1030 
1040 
1050 
1060 



POKE 59468,12 

PRINT "CCLR3";TRB<8>; "TAPE COVER PRINTER" 

PRINT "C 2 DOWN 3 THIS PROGRAM WILL PRINT A LABEL " 
PRINT " [DOWN 3 THAT WILL FIT INSIDE THE TWO-PIECE" 
PRINT " [ DOWN 3 NGRELCG-STVLE CASSETTE EON . IT WILL 
PRINT "[DOWN 3 ALSO PRINT A LABEL FOR THE CASSETTE 
PRINT " C DOWN 3 T APE ITSELF. THE CASSETTE LABEL CAN 
PRINT " [DOWN 3 BE AFFIXED VERV NEATLV WITH RUBBER 
PRINT "[DOWN 3 CEMENT. " 

PRINT "[DOWN 3 PRESS RETURN TO BEGIN" 

GET AT- IF AT=" " THEN 210 
FOR 1=1 TO 2 
ST< I >=" " : P=0 

PRINT " C CLR 3 PRESS C R VS 3 RETURN C OFF 3 WHEN COMPLETED 
PRINT " [DOWN 3 ENTER THE PROGRAMS ON SIDE" I 
PR I NT •' P=P+ 1 

PRINT " PROGRAM #",P; " _E 3 LEFT 3"; 

INPUT AT 

IF AT="_" THEN 620 
1^ P=1 THEN ST< I )=AT • GOTO 590 
ST < I > =ST < I ) + " : " +AT 
L < 1 ) =LEN < ST < I > > 

IF L <1.036 GOTO 700 
GOTO 530 
NEXT I 
GOTO 800 

REM S TOO MANV CHARACTERS 
PRINT 

THE PROGRAMS VOU HAVE ENTERED FOR THIS 
SIDE ARE TOO LONG. VOU MIGHT TRV USING- 
PRINT "ABBREVIATIONS FOR ONE OR MORE OF THEM. 
PRINT 

"PRESS [ R VS 3 RETURN C OFF 3 WHEN VOU ARE READY 
PRINT "TO REDO THEM. 

GET AT: IF .A$= “ " THEN 770 
REM 

CT < 1 > =ST < 1 > : CT < 2 =ST < 2 > 

FOR J=1 TO 2 
FOR 1 = 1 TO 37“L< J) 

CT< J>=CT< J>+" " 

NEXT I 

NT < J > =R I GHTT < S TRT < J ) , 1 > 

NEXT J 

REM * WHICH FUNCTION * 

PRINT " [CLR3 [ 3 DOWN 3" 

PRINT "1 PRINT CASSETTE BOX LABEL 
PRINT: PRINT "2 PRINT CASSETTE TAPE LABELS 
PRINT : PRINT "3 PRINT OUT BOTH 
PR I NT : PR I NT : PR I NT " WH I CH? " 

GET AT: IF AT-* 1 " THEN 1060 



PRINT 

PRINT 



750 PRINT 



1070 

1080 

1090 

1100 

1200 

1300 

‘■Timm 
2010 
2020 
2930 
2040 
2050 
2060 
2070 
2080 
2030 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
22 1 u 
2220 
2230 
2240 
2250 
2260 
2270 
2230 
2290 

z. juy 

2310 

2320 

2330 

2340 

3000 

3010 

3015 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 



IF AT<" 1 " OR AT> " 3 " THEN 1066 
A=VAL<AT> 

ON A GOTO 1100,1200,1300 
GOSUB 2000: GOTO 6000 
G0SUB 3000: GOTO 6000 
GOSUB 2000 : GOSUB 3000 : GOTO 6008 
REM SPRINT CASSETTE BOX LABEL* 
OPEN 1,4-CMD 1 
PRINT " 

TO 33 PR I NT 



FOR 1=1 
PRINT " 
FOR 1=1 
PRINT " 
NEXT I 
PRINT " 
FOR 1=1 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
FOR I 



: NEXT I 



TO 4 

!"; TAB<40>; 1 



!" ; 
TO 



40: PRINT : NEXT I 



" ! H +N$a>+ 

" 1 "+N$<2> + 

M 

1 TO 40: PRINT 



"+C$<! >+"! 
,,+ C$<2>+"! 



: NEXT I 



" !";TAB<40>; "! " 

" ! " ; CHRT < 1 > " S I DE 

CHR$ < 1 29 > ; TAB < 24 > " ! 
" !";TAB<40>.:"! " 

•• | "+ci(!) + n ! " 

" !";TAB<40>;"! " 

" !";TAB<40>; "! " 

* ! ";CHR$<1>"SIBE 
CHR$ < 1 29 > .: T AB < 24 > " ! 
" !";TAB<40>;"! " 

'» j "+C$<2)+" ! " 

TO 6 

! ,, ;TAB<40>; "! " 



!"; 

TO 



40: PRINT : NEXT I 



1,4 




PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT " 

PRINT " 

FOR 1=1 
PRINT " 

NEXT I 
PRINT " 

FOR 1=1 
PRINT "! " 

PR I NT# 1 ‘CLOSE 
RETURN 

REM *TAPE LABEL* 

OPEN 1 , 4 : CMD 1 
FOR J=1 TO 2 : BL$=" " 

PRINT " 

FOR 1=1 TO 34 -PRINT 
PRINT "\" 

PRINT " !";CHR$a>" SIDE"; J; 
PRINT CHRT < 1 29 > ; TAB < 20 > " ! " 
L=36-L< J) 

LI = I. NT <L/2> 

FOR 1=1 TO LI 
BL$=BL$+" " : NEXT I 
PRINT " !"; 

PRINT BL$; ST< J) j 

FOR 1 = 1 TO L-Ll -PRINT " ".-NEXT 

PRINT "! " 

PRINT " !"; 

FOR 1=1 TO 



•NEXT I 



36 PRINT : NEXT I 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

REM * 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT " 

FOR 1=1 

NEXT J 

PR I NT# 1 

RETURN 

END 



"J " 

" !"; 
TAB <7 
TAB <7 



" !"; TAB<6> " !"; 
TAB<22> " ! " .: T AB < 6 > " ! 
" !";TAB<6>" !"; 
TAB<22> " !";TAB<6>"! 
" !"; 

TAB < 7 > " - 

TAB<7) "! " 
IDENTIFICATION * 

" !" .: CHRT < 1 > " 
CHR$<129>; "! ' 

" !" ; CHRT < 1 > " 

C.HR$ < 1 29 > , "! ' 



ALAN WALKER 



TO 36 -PRINT 
CLOSE 1,4 



: NEXT I -PRINT 
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How to write for 
Personal Computing 



You’ve written the programs we want to publish. 

You — the Personal Computing readers — are using 
your computers in businesses, homes, offices and 
schools. Other readers, just as software-hungry as you, 
are eager to try out your programs, your applications 
and your techniques. So why not share what you’ve 
done by submitting an article to PC? 

It’s easier than you might think. Remember: we’re 
more interested in practical programs and useful ap- 
plications than in fancy prose. And our editorial staff 
stands ready to help with any problems you encount- 
er in writing your article; just give us a call at (617) 
232-5470. 

Here are some handy guidelines to help you get 
started. 

First, decide what kind of article you want to 
write. Do you have a business program that will help 
an executive, salesman, doctor, lawyer or shopkeeper 
function more efficiently? Think about how business- 
es can benefit from microcomputers — not only in the 
obvious areas of inventory, accounting and payroll, 
but in all departments and levels right up to the presi- 
dent’s desk. Financial and marketing analysis, time 
management, planning, material handling, product de- 
sign and cost accounting are areas ripe for creative 
programming. 

How do you use your computer for home and per- 
sonal applications in your living room, kitchen, study 
or den? Again, think beyond the obvious areas of 
checkbook balancing and budgeting (though these 
areas are far from exhausted) to other applications. 
Hobbies, home management, household inventory, , 
gardening and landscaping, personal income and ex- 
pense analysis, personal mailing lists and word pro- 
cessing are just a few ideas to spark your imagination. 

What education programs have you written for 
children, adults, professionals, businessmen and 
teachers? Computers can not only teach children basic 
subjects such as spelling, math, geography, economics, 
civics, grammar, literature and science, but can help 
adults review or sharpen skills in these areas as well. 
How else can computers function in or out of the 
classroom to aid learning? To help teachers and ad- 
ministrators? 

Are you proficient in some programming tech- 
nique or special computer area you could explain in 



a tutorial article ? How do you save time, money, com- 
puter memory or frustration when programming or 
using your computer? Others can benefit from the 
same techniques you use. 

Computer games , history , humor and fiction are 
other areas rich in article and story ideas. 

Your second step is to write the text of the article. 
Remember, readers aren’t familiar with your program. 
So explain in detail what the program does and how it 
does it. Include here the overall structure of your pro- 
gram as well as any special algorithms or routines 
you’ve used. Give suggestions for modifying or ex- 
panding the program for other applications, other 
businesses or other situations. 

Third, prepare your supporting documentation. In- 
clude at least a program listing and one or two sample 
runs, and add program notes to explain any special 
commands used or other special features of your pro- 
gram. Use charts, diagrams, figures and photos if they 
help explain your program and its use. 

Finally, mail your manuscript. Address it to: Don 
Wood, Managing Editor, Personal Computing Maga- 
zine, 1050 Commonwealth Ave., Boston, MA 02215. 

A few suggestions: All submissions should be origi- 
nal, typed (not all CAPS), double-spaced and neat. 
Please include your name and address on the first page 
of the article and enclose a self-addressed, stamped 
envelope for return of material. 

Since we photograph program listings and sample 
runs exactly as you send them to us for publication 
in the magazine, please be sure you use a fresh ribbon 
for computer printouts. If you don’t have a printer, 
you can type your listings single spaced; but again, be 
sure you use a new ribbon. (If your program relies 
heavily on graphics, you can photograph sample runs 
from your CRT. But take care to avoid distortion due 
to the curve of the screen.) 

Feel free to call us if you have any questions or 
want to discuss specific ideas. We can give you feed- 
back and suggest appropriate slants and approaches. 

We’re always looking for fresh, original ideas. While 
these guidelines will help you in preparing material for 
Personal Computing , don’t assume we don’t want your 
idea just because it’s not mentioned here. Let us and 
our readers know what you 're doing with your com- 
puter. 
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Record keeping problems? Our CCA Data 
Management System solves them easily. 




Having information at your fingertips can make your job a 
whole lot easier. And that's what the CCA Data Management 
System is all about. 

With this Personal Software'” package and an Apple IP” 
or TRS-80 ,M disk system, it will be far easier to keep inven- 
tories, customer lists, accounts receivable and payable records, 
patient histories and many more items. 

In fact, you can use the CCA DMS for all of your data 
management needs, rather than buying (expensive) or writing 
(time consuming) separate programs for each applica- 
tion.. That's because DMS lets you create your own 
filing systems, adapting itself to the types of records 
you keep. You specify the number and names of 
each data field— without any programming. 

With DMS keeping all of your records, you only 
have to learn how to use one system. That's 
easier, too. It's menu driven, with 
prompts to help you create files a 
update, scan, inspect, delete, sort, con- 
dense and print data. Our compre- 
hensive 130-page step-by-step 
instruction manual even provides 
complete "how to" inventory and 
mailing list applications so you 
can start processing immediately. 

DMS is a very powerful sys- 
tem, with more file and record 
storage capacity than other data 
base programs on the market. 

‘Apple is a trademark of Apple Computer, 

Inc.; TRS-80 is a trademark of the Radio Shack 
Div. of Tandy Corp. 



And it also gives you greater data handling flexibility. To cus- 
tomize DMS, write add-on BASIC programs that read or write 
DMS files and perform any kind of processing you want. 

You can sort and print your data in nearly any form of 
report and mailing label you want. Sort data by up to 10 fields 
for zip code, balance due, geographic location or whatever. 
And print reports with subtotals and totals automatically 
calculated. 

Apple DMS has two additional features. Its ISAM 
search method helps you find any item on a diskette within 
10 seconds. And it's Data Interchange Format Program 
allows you to move DMS files into our Apple VisiCalc ,M 
program— the "electronic worksheet"— for powerful, 
flexible calculating. 

Ask your Personal Software dealer to show you how 
easy computerized record keeping is. To locate the 
nearest dealer, contact Personal Software Inc., 
408/745-7841, 1330 Bordeaux Drive, Sunnyvale, 
CA 94086. 
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A Handy Sort 



T here are all sorts of “sorts” — internal, external, 
selection, insertion, exchange, and on and on — 
but they don’t come built into your average personal 
computer. When you need a list of names arranged 
alphabetically or a group of numbers organized in 
ascending or descending order, it’s up to you to make it 
happen. 

Here’s a sort which is short, simple and suitable for 
many uses. It’s a modified “bubble sort”, so called 
because, like bubbles in champagne, the lightest (low- 
est) elements rise to the top, while the heaviest (high- 
est) elements settle to the bottom. It works equally well 
with numbers or literal strings. 

Basic has three relational operators which actually 
do the work: < (less than), = (equal to) and > (greater 
than). But to use them, we have to set up the ground 
rules. 

The Bubble Sort is really an “exchange” sort which 
is done in the computer’s internal storage. Simply 
stated, starting with a list, we compare the first number 
(or name) with the second. If the first number is smal- 
ler than the second, nothing happens, and we compare 

Dwight Wheeler holds a BS Degree in Electrical 
Engineering and an MS in Radio and TV Production. 
After 26 years in broadcasting , he is presently em- 
ployed in the Instructional Media department at Hart- 
nell College in Salinas, CA, where he is also a part- 
time instructor and student of Computer Science. 



BY DWIGHT WHEELER- 



the second with the third, and so on. However, if the 
first number is larger than the second, the two are 
exchanged. (See Figure 1.) 



Compare 




YES 



-► Next Number 



Figure 1 



This sort can be demonstrated with a group of five 
numbers, deliberately arranged in the worst possible 
case where the numbers are in descending order. Fig- 
ure 2 shows the movement of the numbers for each 
pass. Since there are five elements, there will be five- 
less-one, or four, passes to complete the sort. The 
arrows show the exchanges. 

If you track the 5, you’ll notice that it gets to the 
bottom at the end of the first pass. The 4 gets down 
there at the end of the second pass, while it takes the 
4th and final pass for the number 1 to float up to the 
top. 

So much for the theory. . . you want the program, so 
here goes: For illustration, I’ll use an actual case from 
my wife’s class (she’s a teacher). Twenty of her stu- 
dents have just had a test and we will order the list two 
ways: alphabetically and numerically by grade scores 
with the highest on top. (Note that this program was 



PASSES 



1st 



2nd 



3rd 



4th 



4 

4-' 5-s 3 

3 

2 2 
1 1 



3^ 5-n 2 



I ) 3 



2) 5 






P 



3- / 4 
2 2^4 

1 1 
5 5 



P 



3y 2 

2 P 

1 \ J 

4 4 

5 5 






3 

4 

5 



Result 

1 

2 

3 

4 



Figure 2 
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prepared and stored on cassette. We just loaded it and 
inserted the scores in the proper DATA statements since 
the names were previously set up as her class roster.) 

1 . Set up the list: We use the single dimensioned 
arrays: S$(N) for the student’s name and S(N) for the 
score. Since there are more than 10 elements, we must 
have a DIMension statement. Allow a few more than 
expected for expansion. 

100 DIM S$(30), S(30) 

2. Get the DATA: There are two ways; INPUT or 
READ/DATA statements. I prefer the DATA statement 
for three reasons: it gives me the opportunity to save 
the data, I can see and check the entries before running 
the program, and if there should be a problem (Heaven 
forbid!), I can fix it, and re-run the program. INPUT 
data has to be re-entered each time it is run. 

Initialize the counter and read the data. 

110 N= 1 

120 READ S$(N), S(N) 

I usually place the DATA statements at the end of the 
program to allow for expansion. 

3. Check for end of DATA. 

130 IF S$(N) = “END” THEN 160 

4. Increment the counter and read the next data. 

140 N = N + 1 

150 GOTO 120 

5. Adjust the counter. 

160 N = N— 1 

This adjustment subtracts the last entry, the flag 
“END”, which we don’t want included with the stu- 
dents. 

6. Set up the comparison. 

170 FOR K= l TO N— 1 

This defines the number of passes which will be 
needed: one less than the total number of elements (19 
in this case). 

180 FOR J= 1 TO N-K 

Now walk through the stack on each pass, reducing 
the number to be compared each time: 

1st pass: FOR J=1 to 20-1 (19) 

2nd pass: FOR J=1 to 20-2 (18) etc. 

This function improves the efficiency of the sort by 
ignoring the bottom elements of the stack, since we 
know that the heaviest elements have been deposited 
there on each pass. 

7. Make the comparison. 

190 IF S$(J) <= S$(J+1) THEN 260 

If the first name, S$(J) is less than or equal to the 
next name in line, we skip it, and go on to the next 
element. If not, then we: 

8. Make the exchange. 

200 X$ = S$(J) 

210 S$(J) = S$(J+l) 

220 S$(J+1) = X$ 

This three-step switch does the actual work. In line 
200, the variable X$ is assigned the value of the first 
name S$(J). Then in line 210, the first name position is 
assigned the name in the second position, S$(J+1). 
Finally, in line 220, the second position is given the 



name which was in position one . . . and the switch is 
complete. 

But hold everything! Naturally, we want to keep the 
proper score associated with the student’s name, so we 
must make a similar exchange for the scores at the 
same time: 

230 X = S(J) 

240 S(J) = S(J + 1) 

250 S(J+1) = X. 

Of course, we use the numerical variable X for the 
scores, rather than the X$ which was used for the literal 
string variable used for the names. 

9. Compare the next two elements. 

260 NEXT J 

10. Go back to the top for another pass. 

270 NEXT K 

1 1 . Print the results. 

280 FOR J = 1 TO N 

290 PRINT S$(J); TAB(20); S(J) 

300 NEXT J 

12. Add the finishing touches. 

310 PRINT 

320 PRINT “NUMBER OF 
STUDENTS =”;N 
325 END 

13. Don’t forget the DATA. 

330 DATA “WHEELER, JON”, 98.5 
340 DATA “GARDEPIE, KEVIN”, 99 



999 DATA “END”, 0 

To avoid an error message, you must include the 
“0” (zero) in the final DATA statement since the READ 
statement includes the two variables S$ and S in this 
record. If the second datum was not there, you would 
get an “insufficient data” error message and the pro- 
gram would stop on most computers. 

I promised you a second list with the highest scorers 
on top. To get this list of names sorted we heed change 
only the statement on line 190: 

190 IF S(J) >= S(J + 1 ) TE[EN 260 

Note that we have changed the comparator to 
“greater than” to get the low scores to sink to the 
bottom this time. 

One note of caution: This routine assumes a mini- 
mum of three names and scores. Don’t try to test the 
program with one or two elements since the parameters 
in lines 170 and 180 will not be proper. 

Of course, this sort can be used on any number of 
elements, but unless you’re lucky enough to have a 
hard copy printer, you can read only about 20 lines at a 
time on a Pet CRT, less on some screens. So, you’ll 
probably want to add a line counter and stop the print- 
ing when the screen is full. 

272 L= 1 



"A 






V. 



J 



r 



to 



292 L=L+1 

294 IF L>20 THEN 1000 



1000 PRINT 

1010 PRINT “CONTINUE”; 

1020 INPUT Q$ 

1030 L= 1 
1040 GO TO 300 

The screen will fill and stop. When you enter any 
letter, the program will continue with the next 20 
items. 



This routine has been very helpful in my programs. 
But don’t be impatient. If you have many items ( 100 or 
more), it will take several minutes to complete a sort. If 
you’re the type that worries when the computer just sits 
there and nothing blinks on the CRT, I suggest that you 
add this line: 

162 PRINT “TAKE A BREAK 
WHILE I SORT...” 

Then go out for a long coffee break. This is not the 
most efficient sort, but you can use it on any computer, 
and it works! And that’s the bottom line. □ 
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Program Listing 

90 REM "BUBBLE SORT" PROGRAM 

95 REM CODED BY DWIGHT WHEELER 
100 DIM S$ ( 30 ) * S ( 30 ) 

110 N~1 

120 READ S $ ( N ) * S < N ) 

130 IF S$ ( N > = " END " THEN 160 
140 N~N+ 1 
1.50 GOTO 120 
160 N~N~1 

170 FOR K=*l TO N-l 

ISO FOR J=1 TO N-K 

1.90 IF St< JX«S$( J+l) THEN 260 

200 X*~S$(J> 

210 S$< J)*S$( J+l) 

220 S $ ( J + 1 ) - X $ 

230 X»S(J) 

240 S(J)*S(J+1> 

250 S<J+1)=X 
260 NEXT J 
270 NEXT K 
272 L~1 

280 FOR J=1 TO N 

290 PRINT S$< J) * TAB (20) *S< J) 

292 L“L. + 1 

2 Q 4 IF L>20 THEN 1000 
300 NEXT J 



310 

320 

325 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

999 

1000 

1010 

1020 

1030 

1040 



PR INI- 

PRINT "NUMBER OF STUDENTS * 
END 

DATA ■ WHEELER » JON" * 98 *5 
DATA * GARBER I E > KEVIN " v 99 
DATA ■ SMITH * JOHN" * 34 *5 
DATA "DOE * MARY" * 56 *8 
DATA M KENNEDY y ROBERT " y 78 *9 
DATA " GRAFT t GARRY “ t 90 * 2 
DATA " MCDONALD y SANDY" *87.5 
DATA "NEWTON* ANDY" *65 
DAI A ■ POULTON * AMY " *93.2 
DATA "HARTNELL* JOE " *44*4 
DATA "ROCKFORD* ELLIE“*75 
D A T A " H 0 W E L L * B E L L " * 9 1 ♦ 3 
DATA "WEINER* BID" *77*6 
DATA "EWING* WILLIAM" *85 
DATA "STEPHENS* PETE" *88*7 
D A r A " S I M P S 0 N * H 0 W A R D ■ * 94 
DATA "SMART* PHIL" *100 
DATA "FELLOWS* MARIE" *80 
DAI A " BRUENER * WARD " * 97 . 6 
DAT A ■ S I L V A * D A V I D " * 99 
DATA " END " * 0 
PRINT 

PRINT "CONTINUE"* 

INPUT* Q« 

PRINT 
GOTO 300 



■ * N 



Sample Run 



BRUENER* WARD 


97.6 


DOE* MARY 


56.8 


EWING* WILLIAM 


85 


FELLOWS* MARIE 


SO 


GARDEPIE * KEVIN 


99 


GRAFT* GARRY 


90.2 


HARTNELL* JOE 


44*4 


HOWELL* BELL 


91.3 


KENNEDY* ROBERT 


78.9 


MCDONALD* SANDY 


87 ♦ 5 


NEWTON* ANDY 


65 


POULTON* AMY 


93.2 


ROCKFORD* ELL IE 


75 


SILVA* DAVID 


99 


SIMPSON* HOWARD 


94 


SMART* PHIL 


100 


SMITH* JOHN 


34.5 


STEPHENS* PETE 


88 . 7 


WEINER* SID 


77.6 


Wheeler* jon 


98.5 


CQNTINUETY 


NUMBER OF STUDENTS 


20 



* 



190 IF S(J) >~ S(Jfl) THEN 260 



* 

RUN 

SMART* PHIL 100 

GARDE PIE * KEVIN 99 

SILVA* DAVID 99 

WHEELER* JON 98*5 

BRUENER* WARD 97.6 

SIMPSON* HOWARD 94 

POULTON* AMY 93.2 

HOWELL* BELL 91.3 

GRAFT* GARRY 90.2 

STEPHENS* PETE &8.7 

MCDONALD* SANDY 87.5 

EWING* WILLIAM 85 

FELLOWS* MARIE 80 

KENNEDY* ROBERT 78.9 

WEINER* SID 77.6 

ROCKFORD* ELL IE 75 

NEWTON* ANDY 65 

DOE* MARY 56.8 

HARTNELL* JOE 44.4 

SMITH* JOHN 34.5 



CONTINUETY 



NUMBER OF STUDENTS * 20 

* 



V 



A 




J 
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Rental 

Income 

BYW. 




B. GOLDSMITH, JR. 



D o you have some rental property? Thinking about get- 
ting some ? Rental property can be a one-room ski cabin 
rented a handful of times during the year or a 300 unit 
residential apartment complex. It can be a money earner and 
a tax shelter. Rental property can give you pride of ownership 
or a pain in the neck. 

All rentals have something in common, though — you’ve 
got to tell the income tax folks about your income and 
expenses each year. The numbers go on your federal Sched- 
ule E (Part II) and the appropriate corresponding form for 
your state income tax authority. Until recently, the Internal 
Revenue Service published a nice worksheet (Form 2831, 
Rental Income) to help you get all the numbers in the right 
place, but that form is no longer available. Now what can you 
do? Use this Rental Income program and your computer to 
generate a “statement attached”; then fill in the income and 
expense totals on your income tax return. 

This Basic program prompts all the necessary entries for 
one rental property, combines the numbers to generate the 
profit or loss figure and prints a statement suitable for attach- 
ing to your income tax returns. The program returns a cash 
flow profit or loss number because it ignores the depreciation 
on your rental. I omitted the depreciation from this program 
for two reasons: (1) The depreciation calculation must be 
shown on the official Schedule E — printing it by computer 
would not save manually entering the information on the tax 
return, and two printouts of the same depreciation schedule 
on the same tax return might lead to some confusion. (2) The 
program forces you to recognize your cash flow. (It’s nice 
when your rental gives you a tax shelter, but you want to 
know if that tax shelter is costing you money.) 

Another use for this program is analysis of a prospective 
rental property purchase. Use the program as a checklist of 
expense and income estimates and you can get an idea of the 
cash flow you could expect from your investment. By com- 
paring different properties, you can make the investment that 
best suits you. 

User Notes 

There are no “gotchas” in Rental Income. From the time 
you type RUN until the final copy is printed, program opera- 
tion is straightforward. In fact, the program is so much fun, 
you may want to go out and buy a rental just to have an excuse 
to use it. 

The Sample Run illustrates the prompting feature — enter 



Mr. Goldsmith , an aerospace engineer , is enrolled to prac- 
tice before the Internal Revenue Service and is an active 
member of the National Society of Public Accountants. 



Program Listing 



0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0100 
0110 
0120 
0130 
0140 
0150 
01 60 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
02 60 
0270 
02 80 
0290 
0300 
0310 
0320 
0330 
03 40 
0350 
03 60 
0370 
03 60 
03 90 
0400 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 



REM STATE,' *1ENT OF RENTAL 
REM INCOME AND EXPENSES 
REM BY W. B. GOLDSMITH, Jrt. 

DIM RS (20) , EC35) 

DEF FNX(A) =60-LEN(STR$(A) ) 

DEF FNY(3)=70-LEN(STR$(B)) 

LINE: 0 
0IGITS= 2 

PRINT "STATEMENT OF RENTAL INCOME AND" 

PRINT "EXPENSES. THIS PROGRAM WILL" 

PRINT "COLLECT AND PRINT A SUMMARY FOR” 

PRINT "ONE RENTAL UNIT. USE MULTIPLE" 

PRINT "RUNS FOR MORE THAN ONE UNIT." 

PRINT 

INPUT "WHAT SCHEDULE NUMBER IS THIS", A (1) 
PRINT 

INPUT "TAXPAYER’S NAME",A$C1) 

INPUT "TAXPAYER'S I.D. NUMBER" ,A$U) 

PRINT 

INPUT "KIND OF PROPERTY" ,A$(3) 

INPUT "STREET ADDRESS" , A $( 4) 

INPUT "CITY, STATE AND ZIP CODl' ,A$(5) ,A$( 6) 
PRINT 

INPUT "WHAT PERIOD IS COVERED" ,A$(7) 

PRINT 

REM INCOME 

INPUT "RENTS REC El VED" , I ( 6) 

PRINT "ENTER OTHER INCOME BY TYPING” 

PRINT "SOURCE, AMOUNT" 

INPUT I$(1),I(1) 

IF Id) =0 1(9) =0 : G0T0400 
INPUT I$(2) , I (2) 

IF 1(2) =0 1(9) = 1 :G0T04UU 
INPUT I$(3) ,1(3) 

IF 1(3) =0 1(9) =2 : G0T040U 
INPUT I$(4) , I (4) 

IF 1(4) =0 1(9) =3 : G0T0400 
I ( 9) =4 

1=1(1 )+I(2)+I(3)+I(4)+I(5)+I(6) 

REM EXPENSES 
PRINT 

PRINT "ENTER EXPENSE TOTALS FOns” 

PRINT 

INPUT "ADVERTISING", Ed) 

INPUT "CLEANING" ,E(2) 

INPUT "COMMISSIONS", E(3) 

INPUT "GARDENING" ,E(4) 

INPUT "INSURANCE" ,E(5) 

INPUT "INTEREST', EC 6) 

INPUT "JANITOR AND HEATI NG" , E(7) 

INPUT "LEGAL AND ACCOUNTI NG” , E( 6) 

INPUT "MANAGEMENT FEES'',E(9) 

INPUT "OFFICE SUPPLIES", E( 10) 

INPUT "SALARIES", E(1 1) 

INPUT "SUPPLIES", E(12) 

INPUT "TAXES AND LI C ENS ES" , E(1 3 ) 

INPUT " TELEPHONE* , E( 1 4) 

INPUT "UTILITIES", Ed 5) 

PRINT "AUTOMOBILE AND TRAVEL EXPENSE" 

Continued 
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the data as the program queries you and you’re home free. 
Most entries are a single entry per prompt. CITY, STATE ZIP 
is set up for two entries after the prompt, so you can enter 
City (comma) State ZIP in the “normal” way. OTHER IN- 
COME is also a two-entry-per-prompt field. Enter the name 
of the income source, a comma and the dollar amount. There 
are provisions for four other income sources. To end the 
prompt routine, type anything for the source and zero for the 
amount. 

The same open-ended entry format is available for the 
expense categories REPAIRS and OTHER EXPENSES. You 
may enter up to eight repair expense categories and up to nine 
other expenses. Again, type anything and a zero to tell the 
program you’re finished with that area and it will move to the 
next entry field. 

Since the output is a potential income tax return attach- 
ment, a schedule number is provided. You should enter a 
different number for each property. The printout will add an 
“E” prefix to the statement because these are backups for 
IRS 1040 Schedule E. 

Under AUTO AND TRAVEL expense, the program asks for 
mileage — not dollars — to see if you want to use the 
standard (optional) mileage rate. This rate is currently 18.5 
cents per mile. If you wish to use actual expenses, enter a 
zero for mileage and type the total dollar amount for your 
transportation expense after the OTHER TRAVEL EXPENSE 
query. You’ll note from the sample run that it’s okay to enter 
zeroes for prompts that don’t correspond to an actual ex- 
pense. Any category with a zero will be dropped at statement 
printing time. 

Finally, “Rental Income” asks which output port number 
you wish to use. The question has a two-fold purpose. You 
may have more than one printer on your system and want the 
flexibility of changing from run to run. It also permits you to 
make a last check of your printer before you hit RETURN. In 
the Sample Run, my video (control) terminal is at Port #1 
and my system printer (a faithful TTY ) is located at Port #3 . 

If you want more copies, type “Y” after each run and you 
will reenter the print sequence of the program. (My TTY isn't 
set up for carbons.) 

The biggest problem with this program is that it makes the 
task look too easy. I’ve found it best not to exercise Rental 
Income in front of my tax clients — after seeing how quick 
and easy it is, they can’t believe it’s doing the job. It is. 

Program Notes 

Rental Income, written in SWTP 8K Basic Version 2.0, 
should adapt easily to other Basics having character string 
and one-dimension matrix capability. In a few spots. I’ve 
used multiple statements per line (a colon is the separat- 
or). You can add line numbers and make these separate lines 
if your Basic doesn’t like to double up. No program logic will 
be disturbed except in line 2220, and we’ll get to that. 

This is a working program designed to solve a specific 
problem in my tax preparation practice. Statements 10 
through 150 provide a preamble for the program and an 
introduction to the user. The Define Functions in lines 50 to 
60 provide a print format to line up the decimal points on the 
output statement. You don’t need these if your Basic has a 
different print formatting scheme. 

The Input part of Rental Income is contained in lines 160 
through 1110. Statements 320, 340, 360 and 380 provide the 
escape from the OTHER INCOME input routine and set vari- 
able 1(9), which will be used in the print routine. Statement 
400 totals the income figures into variable I. 

Variable M(2), which is the standard mileage rate for auto 



0700 INPUT "MILEAGE", MCI) 

0710 WC2):0.185 

0720 INPUT "OTHER TRAVEL EXPENSES" , EC 1 6) 

0730 PRINT "LIST REPAIRS BY TYPE AND AMOUNT" 

0740 INPUT RSC 1 ) , EC 17) 

0750 IF EC 1 7) =0 THEN 900 
0760 INPUT R$ C2) , EC 1 8) 

0770 IF EC 1 8) =0 THEN 900 
0780 INPUT R$ C3 ) , EC 1 9) 

0790 IF EC 1 9) =0 THEN 900 
0800 iNPUT R$ C4) , EC20) 

0810 IF EC20) =0 THEN 900 
0820 INPUT R$ C5) , EC2 1 ) 

0830 IF EC21):0 THEN 900 
0840 INPUT R$ C 6) , EC22) 

0850 IF EC22) =0 THEN 900 
0860 INPUT RSC7) , EC23) 

0870 IF EC23) =0 THEN 900 
0880 INPUT R$ C 8) , EC24) 

0900 PRINT "LIST OTHER EXPENSES BY TYPE AND" 

0910 PRINT "AMOUNT." 

0920 INPUT R$C9) , EC25) 

0930 IF EC25) =0 THEN 1100 
0940 INPUT R$ C 1 0) , EC26) 

0950 IF EC2 6)=0 THEN 1100 
0960 INPUT RSC 1 1 ) , EC27) 

0970 IF EC27) =0 THEN 1 100 
0980 INPUT RSC 12) , EC28) 

0990 IF EC 2 8) -0 THEN 1100 
1000 INPUT RSC 13) , EC29) 

1010 IF EC29) =0 THEN 1 100 
1020 INPUT RSC 1 4) , EC30) 

1030 IF EC30)=0 THEN 1100 
1040 INPUT RS C 1 5) , EC3 1 ) 

1050 IF EC31) =0 THEN l 100 
1060 INPUT RSC 1 6) , EC32) 

1070 IF EC32) =0 THEN 1 100 
1080 INPUT RSC 17) , EC33) 

1100 REM OUTPUT ROUTINE 

1110 INPUT "WHAT OUTPUT PORT NU MB Ert" , P 

1120 P0RT= p 

1190 REM OUTPUT 

1200 DIGITS: 0 

1210 PRINT TABC58) {"ATTACHMENT l-"{AC1) 

1220 PRINT TABC17) {"STATEMENT OF nENTAL INCOME 
' AND EXPENSE" 

1230 PRINT TABC26) {" C LESS DEPRECIATION)" 

1240 PRINT :PRINTTABCC68-LENCA$C7)))/2) {"FOR " { A S C 7 ) 
1250 PRINT ASCI) {TABC54) {"SSN " {ASU) 

1260 PRINT :PRINr DESCRIPTION OF PnOPErtTY: " {aSC3) 
1270 PRINT "ADDRESS OF PROPERTY: " {ASC4) 

1280 PRINT TABC26) {ASC5) {", " ;ASC6) 

1290 PRINT SPRINT: DIGITS:2 
1300 PRINT TABC10) {"INCOME" 

1310 PRINT 

1320 PRINT "RENTS RECEI VED" ; TABC5&-LENCSTRSC I C6) 

))) {"S " { I C 6) 

1330 IF I C 9 ) :Q THEN 1370 
1340 FOR X: 1 TO IC9) 

1350 PRINT ISCX) { TABC FNXC I C X) ) ) ; I C X) 

13 60 NEXT X 
1370 REM 

1380 PRINT TAB C 52) {" " 

1390 PRINT "GROSS INCOME FROM RENTA L" { TAB C 68- LENC 
STRSCI))) {"S " {I 
1400 PRINT 

1410 PRINT TABC10) {"EXPENSES" 

1420 PRINT 

1430 PRINT "INTEREST { TABC5S-LENCSTnS C EC 6) ) ) ) { 

"$ " {EC 6) 

1440 IF EC 1 ) :0 THEN 1460 

1450 PRINT "ADVERTISING" { TABC FNXC EC l ) ) ) ; EC 1 ) 

1460 IF EC2 ) :Q THEN 1480 

1470 PRINT " CLEA NI NG” { TABCFNXC t,C£) )) { EC 2) 

1480 IF EC3):0 THEN 1500 

1490 PRINT "COMMISSIONS" { TAB C FNXC EC3 )) ) ;LC3) 

1500 IF EC4):0 THEN 1520 

1510 PRINT "GARDENING" {TABCFNXC EC4))) {LC4) 

1520 IF EC 5) :Q THEN 1540 

1530 PRINT "INSURANCE'* { TAB C FNXC EC 5) ) ) ;EC5) 

1540 IF EC 7) =0 THEN 1560 

1550 PRINT "JANITOR AND HEaTI NG" { TaBC FNXC EC7) ) ) { EC7 ) 
1560 IF EC 8) :Q THEN 1580 

1570 PRINT "LEGAL AND ACCOUNTI NG" { TAB C FNXC EC 8) ) ) { EC 8) 
1580 IF EC 9) :0 THEN 1600 

1590 PRINT "MANAGEMENT FEES" { TAB C FNXC EC 9) )){ EC 9) 

Continued 
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1600 IF E(10)=0 THEN 1620 

1610 PRINT "OFFICE SUPPLI ES" ; TAB ( FNa( £( 1 0) ) ) ; t( 1 0) 

1620 IF E(1 1) =0 THEN 1640 

1630 PRINT "SaLaRIES"{TAB(FNX(E(11))) ; EC 1 1 ) 

1640 IF E( 1 2 ) =0 THEN 1660 

1650 PRINT "SUPPLI ES" ; TAB( FNXC E( 12) )) {ECU) 

1660 IF EC 1 3 ) -0 THEN 1680 

1670 PRINT "TAXES AND LICENSES- ; TABC FNXC EC 13) )); E( 1 3) 

1680 IF EC 1 4) =0 THEN 1700 

1690 PRINT "TELEPHONE" ; TABC FNXC EC 14))) ;EC 14) 

1700 IF EC 15) =0 THEN 1720 

1710 PRINT "UTILITIES" ; TABC FNXC EC 1 3))) ; EC 1 5) 

1720 IF M(1):0 THEN 1760 
1730 EC 3 4) :M(l)*M(2) s DIGITS=0 

1740 PRINT "AUTOMOBILES ";MCD;" MILES 0 ";MC2)*100;" CENTS/ MI LE" ; 
1750 DIGITS^ 2 : PRI NT TABC FNXC EC34) )); LC34) 

1760 IF EC 16) =0 THEN 17 80 

1770 PRINT "OTHER TRAVEL EXPENSE" ; TAB ( FNXC EC 1 6) ) ) ; EC 16) 

1780 IF EC 1 7 ) :0 THEN 1810 
1790 PRINT "REPAIRS;" 

1800 PRINT TABC5) ;R$C1) ;TaBCFNXC lC17))) ;EC17) 

1810 IF EC 1 8) =0 THEN 1830 

1820 PRINT TABC 5) ; R$ C2) ; TABC FNXC EC 1 8) ) ) ; EC 1 8) 

1830 IF EC 19) =0 THEN 1850 

1840 PRINT TABC5) ;R$C3) ;TaBC FNXC EC 19))) { EC 1 9) 

1850 IF EC20) =0 THEN 1870 

I860 PRINT TABC5) ; RS C 4 ) ; TABC FNXC EC 20))) ;EC20) 

1870 IF EC21)=0 THEN 1890 

1^80 PRINT TABC5) ;RSC5) } TABC FNXC EU i )) ) ;EC21) 

1890 IF EC22) =0 THEN 1910 

1900 PRINT TABC 5) ; RS C 6 ) ; TABC FNXC EC 22) ) ) ; EC22) 

1910 IF EC23 ) =0 THEN 1930 

1920 PRINT TAB C5) ; RS C 7 ) ; TABC FNXC EC 23 )) ) ; EC23 ) 

1930 IF EC2 4) =0 THEN 1950 

1940 PRINT TABC5) ;RSC8) ;TAB C FNXC EC24) ) ) ; EC24) 

1950 IF EC25)=0 THEN 1980 
1960 PRI fcdT "OTHER EXPENSES:" 

1970 PRINT TABC5) ;R$ C 9) ; TABCFNXC EC25) ) ) ;EC25) 

1980 IF EC26):0 THEN 2000 

1990 PRINT TABC5) ;RS C 10) ; TABC FNXC EC 2 6) ) ) ; EC26) 

2000 IF EC2 7) =0 THEN 2020 

2010 PRINT TAB C5) ;R$ C 1 1 ) ; TABC FNXC EC27 ) ) ) ; c.C27 ) 

2020 IF EC28) =0 THEN 2040 

2030 PRINT TABC5) ;R$C12) ;TABC FNXC EC 28))) ;EC28) 

2040 IF EC29) =0 THEN 2060 

2050 PRINT TABC5) ;R$C13) ;TaBCFNXC LC29))) ;c.C29) 

2060 IF EC30) =0 THEN 2080 

2070 PRINT TABC5) ;R$C14) ;TABC FNXC EC 30))) ;EC30) 

2080 IF EC31)=0 THEN 2100 

2090 PRINT TABC5) ;R$C 1 5) ; TABC FNXC lC 3 1 ) ) ) ; EC3 i ) 

2100 IF EC32 ) :Q THEN 2120 

2110 PRINT TABC5) ;R$C16) {TABCFNXC lC32))) ;EC32) 

2120 IF EC33) =0 THEN 2140 

2130 PRINT TABC5) ; RS C 1 7 ) {TABCFNXC EC33) ) ) ;c.C33) 

2140 PRINT TABC52) {" " 

2150 E=0 

2160 FOR X = 1 TO 34 
2170 E=E+ EC X) 

2180 NEXT X 

2190 PRINT "GROSS RENTAL EXPENSES" { IaBCFNYC E) ) ;E 

2200 PRINT TAB C60) {" " 

2210 C=I-E 

2220 IF C<0 THEN C=-C:GOTO 2250 

2230 PRINT "CASH FLOW GAIN FROM RENTAL" { TAB C 68- LENC STRS C C) )){"$"{ C 
2240 GOTO 22 60 

2250 PRINT "CASH FLOW LOSS FROM rt ENTA L" { TAB C 68- LENC STRSC C) ) ) { 

"SC" {C{")" 

2260 PRINT TABC60) 

2270 PRINT 
2280 PRINT 
2290 PRINT 
2300 PORT: 1 

2310 INPUT "ANOTHER C0PY",A$C8) 

2320 IF LlFTS CAS C 8) * 1 ) =" Y" THEN 1120 
2330 IF LEFT$CAS(8),1)<>"N" THEN 2oi0 
23 40 END 



expense, is set to 0. 185 ( 18.5 cents per 
mile) in line 710. The standard rate 
allowed by the IRS changes every few 
years so watch your tax forms booklet 
for the current rate and modify 710 as 
required. (The 18.5 cents figure is valid 
for 1980. In 1979, the allowance was 
17 cents.) 

In the sequence from 730 to 880, 
REPAIRS expenses are entered. Lines 
750, 770, 790, 810, 830, 850 and 870 
are the keys to jump out of the input 
sequence. YouTl see a similar se- 
quence in lines 900 through 1080 for 
OTHER EXPENSES. Your experience 
with your own rental may suggest that 
this version has too many inputs for 
repairs and other expenses. Leaving 
some of these input statements out will 
save program keypunch time and some 
memory. If you decide to shorten the 
program here, remember to make a cor- 
responding change in the print area to 
gain the most memory saving. 

The remainder of the program gener- 
ates the Rental Income Cash Flow 
Statement. Lines 1 120 and 1200 pro- 
vide the initial output port selection. 
Statement 1210 through 1290 print the 
statement heading information. The 
TAB in line 1240 is a centering calcula- 
tion. Since my TTY has a 72 column 
printing capacity, all of my TAB calcu- 
lations are based on that figure. Unless 
you’re printing a super wide statement 
( 100 to 132 columns), you can probab- 
ly leave most of the formatting state- 
ments alone. The difference between 
72 and 80 columns won’t be noticeable 
for anything but the centered data. To 
correct the centering TAB, replace my 
“68” with the number of columns your 
printer uses minus 4. (The minus 4 ad- 
justs the centering for the addition to 
variable A$(7) of the prefix word 
FOR.) For example: If you have an 80 
column printer, 1240 becomes: 

1240 PRINT:PRINT TAB( 
(76-LEN(A$(7)))/2);“FOR ”;A$(7) 

Lines 1300 through 1400 print the 
income items. The FOR/NEXT loop of 
1 330 to 1 360 makes use of variable i(9) 
which we set in the 300-400 line area. 
Statements in 1410 through 2140 print 
the expenses. The IF E(n) statements 
suppress the printout of categories 
having zero expense. If you cut back 
the REPAIRS and OTHER EXPENSES 
inputs, you may remove the corre- 
sponding IF and PRINT statements to 
save memory. (You can also leave 
them in without harming anything. The 
IF statements will suppress the PRINT 
statements for empty variables.) 

The FOR/NEXT loop in 2150 
through 2180 totals all expenses into 



variable E. Again, if you've removed 
some INPUT statements, you can 
shorten the execution time by changing 
the FOR statement. 

Statements 2210 to 2260 print the 
much maligned bottom line. The cash 
flow gain or loss is calculated in 2210. 
2220 steers the program to tag the result 



as a gain (line 2230) or loss (line 2250) 
and also removes the minus sign (“-”) 
from a loss to allow the proper account- 
ing notation (brackets or parentheses) 
to be applied in 2250. (Brackets or 
parentheses are more easily understood 
by accounting specialists — including 
IRS professionals — than a minus sign 
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ENTER EXPENSE TOTALS FOR: 


Sample Run 




ADVERTISING? 12 
CLEANING? 50 
COMMISSIONS? 0 
GARDENING? 288 
INSURANCE? 452 


STATEMENT OF RENTAL INCOME AND 




INTEREST? 3000 


EXPENSES. THIS PROGRAM WILL 




JANITOR AND HEATING? 0 


COLLECT AND PRINT A SUMMARY FOn 




LEGAL AND ACCOUNTING? 50 


ONE RENTAL UNIT. USE MULTIPLE 




MANAGEMENT FEES? 0 


RUNS FOR MORE THAN ONE UNIT. 




OFFICE SUPPLIES? 25 
SAURIES? 0 


WHAT SCHEDULE NUMBER IS THIS? 1 




SUPPLIES? 44 

TAXES AND LICENSES? 325 


taxpayer’s name? l. anne lord 




TELEPHONE? 15 


taxpayer’s i.d. number? ooo-oo-oouo 


UTILITIES? 0 






AUTOMOBILE AND TRAVEL EXPENSE 


KIND OF PROPERTY? FRAME HOUSE 




MI LUGE? 624 


STREET ADDRESS? 123 ANY STREET 




OTHER TRAVEL EXPENSES? 0 


CITY, STATE AND ZIP CODE? UTOPIA, 


CA 99999 


LIST REPAIRS BY TYPE AND AMOUNT 
? ROOF, 389 


WHAT PERIOD IS COVERED? YEAR OF 198u 


? PLUMBING, 213 


RENTS RECEIVED? 6000 




? 0 

LIST OTHER EXPENSES BY TYPE AND 


ENTER OTHER INCOME BY TYPING 




AMOUNT. 


SOURCE, AMOUNT 




? DRAPERY CLEANING, 65 


? DEPOSI TS, 500 




? ,0 


? ,0 




WHAT OUTPUT PORT NUMBER? 3 






ATTACHMENT E-l 


STATEMENT OF RENTAL INCOME AND EXPENSE 




(LESS DEPRECIATION) 




FOR YEAR OF 1980 


L. ANNE LORD 




SSN 000-00-0000 


DESCRIPTION OF PROPERTY: 


FRAME HOUSE 




ADDRESS OF PROPERTY: 


123 ANY STREET 
UTOPIA, CA 99999 




INCOME 






RENTS RECEIVED 




$ 6000.00 


DEPOSITS 




500.00 


GROSS INCOME FROM RENTAL 




$ 6500.00 


EXPENSES 






INTEREST 




$ 3000.00 


ADVERTISING 




12.00 


GLEA NI NG 




50.00 


GARDENING 




288.00 


INSURANCE 




452.00 


LEGAL AND ACCOUNTING 




50.00 


OFFICE SUPPLIES 




25.00 


SUPPLI ES 




44.00 


TAXES AND LICENSES 




325.00 


TELEPHONE 




15.00 


AUTOMOBILE: 624 MILES @ 
RtPAIRS: 


18.5 CENTS/MILE 


115.44 


ROOF 




389.00 


PLUMBING 




213.00 


OTHER EXPENSES: 






DRAPERY CLEANING 




65.00 


GROSS RENTAL EXPENSES 




5043.44 


CASH FLOW GAIN FROM RENTAL 


S 1456.56 



or dash.) If your Basic won't handle 
multiple statements per line, change 
line 2220 to: 

2220 IF C<0 THEN 2245 
2245 C= -C 

Otherwise, changing the multiple 



can be handled with no danger of 
destroying program logic. 

Line 2300 throws control back to the 
control terminal on my SWTP 6800 so 
the question in 23 10 isn't printed on the 
output page. 

There it is. Rental Income is a handy 



work for you. You can use it to analyze 
the cash flow estimate for a rental 
property you're considering buying, 
use it as a bookkeeping check list, and 
generate an attachment for your income 
tax returns. You’ll find this fun pro- 
gram is handy not only at tax time, but 



statements to consecutive line numbers program that will help your computer all year. 



□ 
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Personalized 
Sales 
Message 



BY CLINT HENTZ 



I run several small service opera- 
tions and occasionally need to do 
some advertising in addition to our pre- 
scheduled newspaper and radio ad- 
vertisements. This need, coupled with 
the fact that I have a TRS-80, prompted 
me to write a program which would 
personalize a sales message to various 
groups of businesses I felt would bene- 
fit from our services. The program 
works very well for my business, and 
could also help clubs or organizations 
personalize fund raising promotions, 
invitations and announcements. 

The program was written for a 48K 
TRS-80 Level II hooked to a Centron- 
ics tractor feed line printer. However, 
the program will work with 16K. For 
long data lists a program could be writ- 
ten to encompass a Print#- 1 statement 
to put the name, address, and so forth, 
out on a tape and then utilize an Input#- 1 
statement in the listed program to bring 
the data in from the tape. I use the data 
statements in the program since my 
messages are sent to selected groups of 
potential customers which average 250 
to 300 to the group. 

The message contained in the listed 
program was condensed for demonstra- 
tion purposes and is not intended to 
reflect the quality of the messages. 

I do not relish typing 250 to 300 
names and addresses into the computer 
at one sitting, so I use short cuts. If you 
look at some of the data statements you 
will see a letter S or B following some 
of the addresses and before the Zip 
code. The S stands for St. Louis, MO. 

Previous Clint Hentz articles include 
“ Tracking Costs in a Service Busi- 
ness {Oct. 79), “ Keeping Tabs on 
Service Technicians (Dec. 79), and 
“ TV Registrations and Service Con- 
tract Sales," (Feb. 80). 




Program Listing 



ADMINSTRAT0R" 

",A$ 
n i B$ 

ST. LOUIS M0. 
LPRINT" BELLEVILLE IL. 
"S"> AND CCtO "6"> LPRINT” 
D$ 



DEAR ADMINISTRATOR: 



C$, 



35 REM REWRITE PROGRAM USING MULTIPLE LINES IF V0U NEED TO CONSERVE MEMORY ON A TRS- 
40 PR I NT” AS EACH TYPE OF PRINTER HAS A DIFFERENT STARTING POSITION" 

50 PR I NT "FOR THE PAPER. " 

60 PR I NT "ADJUST FIRST SHEET OF PAPER TO CORRECT POSITION. " 

70 PRINT 

80 INPUT "WHEN READY TYPE IN LETTER R * HIT ENTER"; RR$ 

98 IF RR$="R" THEN 100 

100 REM A*=NAME / B$=STREET ADDRESS / CECITY & STATE / D$=ZIP 
110 READ A$, B$, C$, D* 

120 REM ZZ=SENTINAL 

130 REM LINE 150 DOES NOT FRINT ANY CUSTOMERS IN ZIP 45199 

148 REM IF NO ZIPS ARE TO BE RESTRICTED DELETE 150 

150 IF D$="45199" GOTO 110 

160 IF A#="2Z" THEN END 

170 REM LPRINT" ■ = BLANK LINE 

180 LPRINT" " 

190 LPRINT" ■ 

200 LPRINT" " 

210 LPRINT TAB(5)"MAY 10, 1980" 

220 LPRINT" " 

220 LPRINT" " 

240 LPRINT" " 

250 LPRINT" 

260 LPRINT 
270 LPRINT" 

280 IF C$="S" LPRINT" 

290 IF C'$="B' 

200 IF <C $<> 

210 LPRINT" 

220 LPRINT" 

220 LPRINT" 

240 LPRINT" 

250 LPRINT" 

268 LPRINT" 

270 LPRINT" 

280 LPRINT" 

390 LPRINT" 

400 LPRINT" 

410 LPRINT" 

420 LPRINT" 

430 LPRINT" 

440 LPRINT" 

450 LPRINT" 

460 LPRINT" 

470 LPRINT" 

480 LPRINT" 

490 LPRINT" 

500 LPRINT" 

510 LPRINT" 

520 LPRINT" 

530 LPRINT" 

540 LPRINT" 

550 LPRINT" 

560 LPRINT" 

570 LPRINT" 

580 LPRINT" 

590 LPRINT" 

600 LPRINT CHR$(12) 

610 GOTO 110 

620 DATA AMERICAN HOSPITAL, 1224 MAIN STREET, S, 62199 
620 DATA MISSOURI HOSPITAL, 9999 BROADWAY AVENUE, B, 62222 
640 DATA NEBRASKA HOSPITAL, S080 WATER STREET, S, 45199 
650 DATA DENVER HOSPITAL, 10120 WASHINGTON AVE. ,8,62222 
660 DATA MISSISSIPPI HOSPITAL, 1980 CLOVER LEAF DR , CLAYTON MI ,23456 
670 DATA 11 , 11 , 11,11 



A PRACTICAL WAY TO SAVE TIME AND MONEY WHEN YOU NEED REUPHOLSTERING IS TO CALL THE" 
ABC UPHOLSTERING COMPANY AT 123 - 4567, MONDAY THRU FRIDAY, 8:20 AM. TO 4:20 PM " 
AND MAKE AN APPOINTMENT FOR ONE OF OUR REPRESENTATIVES TO PRESENT THE FACTS AND" 

AND FIGURES, PLUS SHOW OVER 500 SAMPLES OF MATERIAL TO YOU IN THE COMFORT OF YOUR" 
OFFICE AT ", B$; ". " 



WHEN MAKING THE APPOINTMENT REQUEST A DAY AND TIME CONVENIENT TO YOUR SCHEDULE 
WILL BE THERE OR THE REUPHOLSTERING IS ON US AND THAT IS A PROMISE!" 



WE" 



I FEEL VERY CONFIDENT OUR REPRESENTATIVE CAN EL OF ASSISTANCE IN SOLVING ANY OF THE" 
REUPHOLSTERING NEEDS OR PROBLEMS AT THE ";A$;". " 



CALL BEFORE MAY 25TH, MENTION THIS LETTER, AND SAVE AN EXTRA 20 PERCENT ON THE FABRIC. ' 



SINCERELY, " 



A. B. SMITH" 
SALES MANAGER 
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,1fiv 10, I9g 0 



NDMINSTRfiTOR 
AMERICAN HOSPITAL 
ipt MAIN street 

ST LOUIS no. 



DEAR ADMINISTR 



63199 



MOV 18' L9® f - 



aownstrwor 
MISSOURI HOSPn«- 
q999 BROADNAX ’ ^2222 

BELLEVILLE 1L. 

BEAR WIHISTRBTOR. 



c 



MftV 10, 1980 



ADMINSTRATOR 
DENVER HOSPITAL 
10120 WASHINGTON AVE. 
BELLEVILLE IL. 62222 



DEAR ADMINISTRATOR 



1C.1 



A PRACTICAL WAV TO SAVE TIME AND MONEV WHEN YOU NEED REUPHOLSTERING IS TO CALL THE 
A B C: UPHOLSTERING COMPANY AT 123 - 4567, MONDAY THRU FRIDAY* 8*30 AM TO 4 3A J? 
AND MAKE AN APPOINTMENT FOR ONE OF OUR REPRESENTATIVES TO PRESENT THE FACTS AND 

9ms c,f ™ l ™ - » * 

WHEN MAKING THE APPOINTMENT REQUEST 
WILL BE THERE OR THE ^ 



I MAY 10* 1980 



sss!r-?s 

L980 CLOVER LEHF l R 
ClAVTON MI ^ 45e 

DEAR ADMINISTRATOR pel1P HOLSTER1N&.1S TO C8LL T« 

'CLWER LE8F » ■ ANIENT TO VC«^HEOULE. ■ 



, MAKE A' 1 Mf r ' ,,‘ cunU OVER 588 

fSTiW clover lew dr- ^ ^ flNo T1HE client pjjar 
® ^ K XVtw'r^^ ER 1HG 1S 0N US eE j mssistwce IN solving anv of the 

QU „c TH , mention this lei It* 

:;HLL BEFORE MHV 25TH, Mt 



SINCERELY, „ 

^2 



, B. SMITH 
SALES MANAGER 



The B stands for Belleville, IL. This 
saves time by not having to type out 
those complete cities and states several 
hundred times. The program converts 
the S and B to the correct wording. See 
lines 280 and 290. The data statements 
could contain first and last names to be 
more personalized. I do not use them 
simply because I do not know the peo- 
ple connected with the businesses I 
contact. However, in a club or organi- 
zation access to the names would not be 
a problem. 

To reduce time I suggest using a 
window envelope. Have one handy 
when preparing the program as you'll 
need to know the number of spaces it 
will require to place the name and ad- 
dress in the correct position. If your 
printer does not allow the paper to be 
adjusted on the left hand side, you can 
make the margin by using the LPRINT 
TAB(X) or by leaving a specific number 
of spaces between the LPRINT ‘ and the 
beginning of the line. See lines 2 10 and 
370 for an example of each. They both 
give the same result. 

Adding a line or two such as IF D$ = 
“45199" GOTO 1 10 causes the program 
to skip names and addresses with the 
Zip code 45199. Of course you would 
insert your own Zip code number. See 
line 150. 

Another tip is to design the message 
so the name or address appears at the 
end of a line, preferably in the last line 
of a paragraph. That way you do not 
have to worry about the differences in 
the length of the names and addresses. 

CHR$( 1 1 ) in line 600 runs the paper 
to the top of the next sheet. This state- 
ment is faster than a series of LPRINT” " 
statements. 

However, the CHR$( 1 1 ) function 
might create a problem when you ad- 
vance the paper to the top of the next 
sheet if you stop the output from the 
computer to the printer during the run 
and then attempt to re-run from the be- 
ginning of the program. I just turn off 
the computer and reload the program 
again, then all works well. If this 
creates a problem for you, use LPRINT” " 
for each line you need to take the paper 
to the top of the next page. 

The pin feed strip is removed from 
the sides of the paper and the message 
inserted into the window envelope, 
thereby eliminating the need for print- 
ing a mailing label and affixing it to an 
envelope. 

From a practical standpoint, this 
program is an inexpensive and quick 
way to present a personalized message to 
a prospective customer or organization. □ 
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What Are 
You 
Worth? 

BY DAVID M. DOLAN 




W hat are you worth financially? If 
you've tried to figure it out, you 
may have gone through the routine of 
gathering together various scraps of 
paper with figures like bank account 
numbers and balances and mortgage 
statements on them, scribbling out a 
rough estimate, then either throwing 
out the whole mess or storing it away in 
such a good hiding place that when you 
went to repeat the process a year later it 
was hidden even from you. After going 
through that process myself a number 
of times, I decided that an organized 
disk file was just the place for all that 
information and my microcomputer 
was just the “fellow” to do all that 
tedious adding and subtracting. 

The program utilizes a random ac- 
cess file called WORTH and a sequential 
file called ANNUAL. When you run the 
program for the first time these files are 
automatically created and initialized. 
You begin by adding the information 
describing your various assets and lia- 
bilities to the WORTH file as requested. 
For instance, in response to ASSET/ 
LIABILITY: you might say SAVINGS 
ACCT. # 1 3-3434-44 and give the name 
of the bank as the LOCATION. 

The category of the entry is given as 
BUSINESS, REAL ESTATE, SECURITY 
(stock certificates, etc.), PENSION, 
CASH. MISC. PROPERTY, or LIABIL- 
ITY (loans, mortgages, etc.). Next you 
enter the value of the asset/liability. 
Finally, if the entry is an asset the pro- 
gram will ask you if it is REGULAR or 
RESTRICTED. If you classify an entry 
as “restricted” then when all entries are 
listed later you will be required to cor- 
rectly enter a predetermined codeword 
to list restricted entries as well. This 
feature is particularly useful if there are 
some entries you want kept private 
when you demonstrate the program, for 
instance. Just enter an incorrect code- 



word and the program will apparently 
operate correctly but will ignore all 
restricted entries. (Note that in Line 60 
I use the codeword “OK” because on 
my Hazeltine 1500 this appears as 
“K”.) 

In normal operation you would con- 
tinue to update your entries to the 
ANNUAL file until the end of the year. 
You will then list the entire file by cate- 
gory and instruct the program to write 
the accumulated totals under the vari- 
ous categories to the ANNUAL file (see 
Sample Run 3). If you follow this rou- 
tine, at the end of each year, you'll have 
a continuous record of changes in your 
various assets and liabilities and will be 
able to see whether your net worth is 



increasing or decreasing in each cate- 
gory. Also, after you’ve accumulated 
at least 2 years of data the program will 
allow you to compare your total worth 
in one year with any other year (see 
Sample Run 4). 

The program is written in North Star 
Basic, Version 6, Release 4. It occu- 
pies about 8K bytes, so including the 
interpreter, you'll need at least 24K of 
memory. 

Program output is configured for any 
80 column, 24 line terminal. You might 
have to change the home cursor/clear 
screen character in line 30. My system 
consists of a Hazeltine 1500 terminal 
and North Star Horizon-2 computer 
with 48K bytes of memory. □ 



**** PERSONAL ASSETS PROGRAM **** 



?1 



1) ADD ASSET/LIABILITY 

2) UPDATE ASSET/LIABILITY 

3) LIST ASSETS/LIABILITIES 



4) DELETE ASSET/ LI ABILITY 

5) ANNUAL COMPARISON 

6) EXIT PROGRAM 



THERE IS ROOM FOR 34 RECORDS 
ENTRY// 11 



ENTER 9999 TO EXIT 

( ) 
ASSET/LIABILITY: SAVINGS 5 1/2? 0566-34-3434 
ENTER »*' TO CORRECT ANY PREVIOUS ENTRY 

( ) 

LOCATION: BANK OF NEWARK 

CATEGORY: (B)USINESS (R)EAL ESTATE (S)ECURITY (P)ENSION 
( C ) ASH (M)ISC. PROPERTY ( L) I ABILITY 
?C 

ASSET/LIABILITY AMOUNT/VALUE : 505.50 
CLASSIFICATION ( 1 ) REGULAR ( 2 ) RESTRICTED : 1 

THERE IS ROOM FOR 33 RECORDS 
ENTRY# 12 



ENTER 9999 TO EXIT 
( 

ASSET/LIABILITY: 9999 



**** PERSONAL ASSETS PROGRAM **** 



1) ADD ASSET/LIABILITY 

2) UPDATE ASSET/LIABILITY 

3) LIST ASSETS/LIABILITIES 



4) DELETE ASSET/ LI ABILITY 

5) ANNUAL COMPARISON 

6) EXIT PROGRAM 



Sample Run 1 . Entry of an Asset to WORTH file. 
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**** PERSONAL ASSETS PROGRAM **** 



1) ADD ASSET/LIABILITY 

2) UPDATE ASSET/LIABILITY 

3) LIST ASSETS/LIABILITIES 



4) DELETE ASSET/LIABILITY 

5) ANNUAL COMPARISON 

6) EXIT PROGRAM 



YEAR ( 1 9 YY) : 1980 
CODEWORD ”0K 
PRINTER? Y 

LIST BY ( N) UMBER OR ( C ) ATEGORY : N 



*** ASSET/LIABILITY LIST 'FOR 1980 *** 



NO. 


ASSET/LIABILITY 


LOCATION 


CATEGORY 


AMOUNT/VALUE 


1 


SAVINGS 5 1/4? £1233-444-0 


BANK OF OHIO 


CASH 


1540.30 


2 


CHECKING £4-44-34343-99 


COAST FEDERAL 


CASH 


1150.88 


3 


SAVINGS 6 1/2? £4-2323-999 


NEVADA BANK 


CASH 


3044.22 


4 


MUNICIPAL BOND FUND £100-333-4 


DREYFUS N/YORK 


SECURITY 


5055.33 


5 


HOUSEHOLD GOODS 


HOUSE ADDRESS 


MISC. PROPERTY 


8033.00 


6 


DAVE’S PROGRAMMING CO. 


BOX 6755 L. A. 


BUSINESS 


5012.44 


7 


SAVINGS (KEOGH ACCT) £11-999 


WELLINGTON S&L 


PENSION 


7800.50 


8 


HOUSE AND LAND 


LOS ANGELES 


REAL ESTATE 


70000.00 


9 


MORTGAGE ON HOUSE £44-4343-99 


BANK OF CALIF. 


LIABILITY 


60000.00 


10 


SAVINGS 5 1/2? £566-34-343** 


BANK OF NEWARK 


CASH 


505.50 



YOUR NET WORTH IS: $42,142.17 



Sample Run 2. Listing of Assets/Liabilities (Note use of codeword). 



**** PERSONAL ASSETS PROGRAM **** 

1 ) 

2 ) 

3) 

?3 



YEAR (19YY): 

CODEWORD "OK 
PRINTER? Y 
LIST BY ( N) UMBER OR ( C) ATEGORY : C 
DO YOU WANT SAVE RECORD TO ANNUAL FILE? Y 

YEAR: 1980 **** NET WORTH EVALUATION **** 



NO. 


ASSET 




LOCATION 


CATEGORY 


AMOUNT/VALUE 


1 


SAVINGS 5 1/4? 


£1233-444-0 


BANK OF OHIO 


CASH 


1540.30 


2 


CHECKING £4-44- 


-34343-99 


COAST FEDERAL 


CASH 


1150.88 


3 


SAVINGS 6 1/2? 


£4-2323-999 


NEVADA BANK 


CASH 


3044.22 


10 


SAVINGS 5 1/2? 


£566-34-3434 


DANK OF NEWARK 


CASH 


505.50 




TOTAL VALUE OF 


CASH 


$6,240.90 






4 


MUNICIPAL BOND 


FUND £100-333 


-4 DREYFUS N/YORK 


SECURITY 


5055.33 




TOTAL VALUE OF 


SECURITY 


$5,055.33 






8 


HOUSE AND LAND 




LOS ANGELES 


REAL ESTATE 


70000.00 




TOTAL VALUE OF 


REAL ESTATE 


$70,000.00 






7 


SAVINGS (KEOGH 


ACCT) £11-999 


WELLINGTON S&L 


PENSION 


7800.50 




TOTAL VALUE OF 


PENSION 


$7,800.50 






5 


HOUSEHOLD GOODS 


HOUSE ADDRESS 


MISC. PROPERTY 


8033.00 




TOTAL VALUE OF 


MISC. PROPERTY 


$8,033.00 






6 


DAVE'S PROGRAMMING CO. 


BOX 6755 L.A. 


BUSINESS 


5012.44 




TOTAL VALUE OF 


BUSINESS 


$5,012.44 










TOTAL ASSETS 


ARE WORTH: $102,142.17 




NO. 


LIABILITY 




LOCATION 


CATEGORY 


AMOUNT/VALUE 


9 


MORTGAGE ON HOUSE £44-4343-99 BANK OF CALIF. 


LIABILITY 


60000.00 



TOTAL LIABILITY IS: $60,000.00 



YOUR TOTAL WORTH AS OF 1980 IS: $ 42 , 142.17 



14) DELETE ASSET/LIABILITY 

5) ANNUAL COMPARISON 

6) EXIT PROGRAM 



1980 



ADD ASSET/LIABILITY 
UPDATE ASSET/LIABILITY 
LIST ASSETS/LIABILITIES 



Sample Run 3. Assets/Liabilities by Category saved to ANNUAL file. 



SINK THE 
BISMARCK 
WITH YOUR 
APPLE! 




OR YOUR TRS-80. 



Now there's a true historical wargame 
for your home computer. COMPUTER 
BISMARCK™ accurately simulates the epic 
battle between the awesome German 
battleship and the British Home Fleet. 
Available on disc for Apple II 48K (Apple- 
soft ROM) and on cassette for TRS-80 32K 
Level II. Both versions feature: 



■ Computer-controlled mapboard of the 
North Atlantic ■ Step by step computer- 
regulated play ■ Hidden movement 

■ Ship vs. ship combat and shadowing 

■ Historical setup of battleships, cruisers, 
and carriers ■ Firepower and damage 

■ Two-player and solitaire scenarios 
The Apple Disc Version also features: 

■ Submarines, destroyers, and convoys 

■ Land-based aircraft ■ Weather & fog 

■ Fuel restrictions and refueling at sea. 

Apple Disc Version: $59.95 
TRS-80 Cassette Version: $49.95 
(California residents add 6.5% sales tax.) 

To order today, credit card holders 
call toll-free 800-648-5600 and ask Oper- 
ator 1 80 to charge your order to your VISA 
or MASTERCHARGE (Nevada only call 
800-992-57 10). Or send a check to Strategic 
Simulations Inc., Dept. PC, 450 San Antonio 
Road, Suite 62, Palo Alto, CA 94306. 

Computer Bismarck is unconditionally 
guaranteed to satisfy or return it intact 
within 2 weeks for a full refund. 



rnJmTTH 

Ins nr. 

computer 

■ BISMARCK u 

There’s never 
I been anything 
^HUHH like it. 

CIRCLE 21 
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**** PERSONAL ASSETS PROGRAM ***« 

1) ADD ASSET/LIABILITY 4) DELETE ASSET/LIABILITY 

2) UPDATE ASSET/LIABILITY 5) ANNUAL COMPARISON 

3) LIST ASSETS/LIABILITIES 6) EXIT PROGRAM 

?5 

CODEWORD: “OK 



1) PRINT ANNUAL RECORDS 2)C0MPARE RECORDS 
?1 



YEAR 


CASH 


SECURITY 


REALEST. 


PENSION 


MISC.PRP 


BUSINESS 


LIABILITY 


TOTAL 


1979 

1980 


4950 

6240 


5055 

5055 


70000 

70000 


7800 

7800 


8033 

8033 


5012 

5012 


60000 

60000 


40852 

42142 



**** PERSONAL ASSETS PROGRAM ***« 

1) ADD ASSET/LIABILITY 4) DELETE ASSET/LIABILITY 

2) UPDATE ASSET/LIABILITY 5) ANNUAL COMPARISON 

3) LIST ASSETS/LIABILITIES 6) EXIT PROGRAM 

?5 

CODEWORD: “OK 



1) PRINT ANNUAL RECORDS 2)C0MPARE RECORDS 
?2 



PRESENT YEAR ( 1 9YY) : 1980 
YEAR FOR COMPARISON: 1979 

SINCE 1979 YOUR NET WORTH HAS INCREASED $1,290.00 
HIT RETURN TO CONTINUE 



Sample Run 4. Listing of annual records and comparison. 



Program Listing 

10 REM* PERSONAL ASSETS PROGRAM 

20 REM* COPYRIGHT DAVID M. DOLAN, DECEMBER 1978 

30 C7$=CHR$( 126)+CHR$(28)\REM* CLEAR SCREEN FOR HAZELTINE 1500 

40 DIMB$(60) ,I$(58) , A$( 58 ) , U$( 58) , C$( 1 3) , Cl $( 1 5 ) , Y$( 4 ) , L9$( 79 ) 

50 L=66 

60 C8$=""0K"\REM* CODEWORD 
70 B$:""\F0RI=1T060\B$=B$+" "\NEXT 
80 DEF FNA$( S, E,U$) 

90 IFU$=""THENRETURNA$(S,E) 

100 U$=U$+B$\RETURNU$ 

1 10 FNEND 

120 0=FILE( "W0RTH")\IF0=-1THENG0SUB1650 
130 OPENffl , "WORTH", LI \READ#1tO , N 
140 REM*MENU 

150 !C7$\!TAB(23) ,"**** PERSONAL ASSETS PROGRAM ****"\! 

160 ! TAB( 1 0) , " 1 ) ADD ASSET/LIABILITY", 

170 !TAB( 45) , "4) DELETE ASSET/ LI ABILITY" 

180 !TAB( 1 0) , "2) UPDATE ASSET/LIABILITY", 

190 !TAB( 45 ) , "5 ) ANNUAL COMPARISON" 

200 !TAB( 10) , "3 ) LIST ASSETS/LIABILITIES", 

210 !TAB( 45) , "6) EXIT PROGRAM" 

220 INPUTC\ONCGOT0230,310,410,1010,1090,1790 
230 REM* ADD ASSET/LIABILITY 

240 !\! "THERE IS ROOM FOR" , I NT ( LI *250/L)-( N+1 ) , " RECORDS" 

250 A$ = B$\ ! "ENTRY# " , N+1 \ ! " " 

260 G0SUB1 380\IFU$="9999"THEN290 

270 WRITE# 1JL*N+5,A$,V,&F,N0ENDMARK\N= N+1 

280 G0TO240 

290 WRITE# 1 %0 , N , NOENDMARK 



880 FORX=1TO2O\IFTYP(2)=0THENEXIT900 
890 READ#2, Y1 ,C1 ,S1 ,R1 ,P1 ,M1 ,B1 ,L1 ,T9VNEXT 

900 WRITE#2,VAL(Y$) ,T< 1) ,T(2) ,T(3> ,T(4) ,T(5) ,T( 6) , INT(T3) , INT( T-T3) 
910 CLOSE#2 

920 T=0\T3=0\W=0\GOSUB1 760\G0T01 40 

930 ! #W, "YEAR : ",Y$,TAB(25) ,"**** NET WORTH EVALUATION *»**" 

940 GOSUB1780 

950 ! #W, "NO. ",TAB(4) ,C1$,TAB(35) ."LOCATION", 

960 ! #W, TAB( 50) , "CATEGORY" ,TAB( 63) , "AMOUNT/ VALUE" 

970 G0SUB1780 
980 RETURN 

990 ! #W, N9+1 , TAB( 4 ) , A$( 1,30) , TAB( 35) , A$( 3 1 , 45) , 

1000 ! #W,TAB( 45) , A$( 46 , 58 ) ,TAB(60 ) , % 1 0F2 , VXRETURN 
1010 REM*DELETE ENTRY 
1020 !C7$\! 

1030 INPUT"NUMBER OF ENTRY TO BE DELETED: ",N9\N9=N9-1 
1040 READ#1JL*N9+5,A$,V,&F\G0SUB990 
1050 INPUT"CORRECT? " , A1 $\IFA1 $( 1 , 1 ) <>"Y"THEN1 40 
1060 A$=B$\F=0 

1070 WRITE# UL*N9+5,A$,0,&F, NOENDMARK 
1080 GOT0140 

1090 REM*ANNUAL COMPARISON 
1100 I N PUT" CODEWORD : ",C9$ 

1110 IFC9$<>C8$THEN140 

1120 0PEN#2," ANNUAL "\READ#2,P 

1130 !C7$\! 

1140 ! " 1 ) PRINT ANNUAL RECORDS 2)C0MPARE RECORDS" 

1150 INPUTC\IFC=2THEN1220 
1160 G0SUB1750 
1 170 GOSUB1310 

1 180 FORZ= 1 T020\IFTYP( 2 )=0THENEXIT1200 
1 190 READ#2,Y1 ,C1 ,S1 , R1 , PI ,M1 , B1 , LI , T2XG0SUB1 350SNEXT 
1200 GOSUB1770 
1210 GOTO1370 
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300 G0TO140 

310 REM*UPDATE/ DISPLAY INDIVIDUAL ENTRY 

320 ! \INPUT"ENTRY # ",N9\N9=N9-1 

330 READ# 1JL*N9+5,A$,V,&F 

340 IFF=2TH ENIN PUT "CODEWORD: ",C9$ELSE360 

350 IFC9$OC8$THEN140 

360 GOSJJB940\GOSUB99O 

370 ! \INPUT"UPDATE? " , A1 $\IFA1 $( 1 , 1 ) <>"Y"THEN400 
380 ! "HIT RETURN IF NO CHANGE"\! 

390 G0SUB1410\WRITE#1%L*N9+5, A$ , V , &F , NOENDMARK 

400 G0T0140 

410 REM*LIST ENTRIES 

420 !C7$\! 

430 INPUT"YEAR (19YY): ",Y$ 

440 IN PUT" CODEWORD ",C9$ 

450 GOSUB1750 

460 INPUT"LIST BY ( N) UMBER OR ( C) ATEGORY : ",A1$ 

470 IFA1$( 1 ,1)="C"THEN590 
480 Cl $=" ASSET/ LI ABILITY" 

490 ! #W,TAB(20) ,"*** ASSET/LIABILITY LIST FOR ",Y$," ***" 

500 GOSUB940\FORN9=0TON-1\READ#UL*N9+5,A$,V,&F 

510 IFV=0THEN550 

520 IFF=2THENIFC9$<>C8$THEN550 

530 GOSUB990 

540 IFF=10RF=2THENT=T+VELSET=T-V 

550 NEXT 

560 G0SUB1770 

570 ! #W , "YOUR NET WORTH IS: ",IC$11F2,T 
580 T=0\W=0\GOSUB1760\GOT01 40 
590 REM*LIST BY CATEGORY 

600 INPUT"DO YOU WANT SAVE RECORD TO ANNUAL FILE? ",A1$ 
610 IFA1$(1 ,1)="Y"THENF2=1 
620 C1$="ASSET"\GOSUB930 
630 RESTORE 

640 F0RZ=1T06\READC$\C$=C$+B$ 

650 FORN9=0TOH-1\READ#1%L*N9+5,A$,V,4F 

660 IFV=0THEN700\IFC$<>A$(46,58)THEN700 

670 IFF = 1 THEN690 

680 IFF=2THEMIFC9$<>C8$THEN700 

690 GOSUB990XT1 =T1 +V\T=T+V\T( Z)=INT(T1) 

700 NEXTNQ 
710 G0SUB1 770 

720 ! #W,TAB(4) , "TOTAL VALUE OF " , C$ ,TAB( 30) , %C$1 0F2 , T1 
730 GOSUB1770 
740 T1 =0 
750 NEXTZ 

760 ! #W,TAB(20) , "TOTAL ASSETS ARE WORTH: " ,* C$1 1 F2 , T\ ! #W 
770 C1$="LIABILITY"\GOSUB940 
780 READC$\C$=C$+B$ 

790 FORN9 = 0TOH-1\READ#UL*N9+5,A$,V,&F 

800 IFC$OA$(46,58)THEN820 

810 G0SUB990\T3=T3+V 

820 NEXT 

830 GOSUB1770 

840 !#W,TAB(20), "TOTAL LIABILITY IS: " ,*C$1 1F2 , T3\ ! #W 
850 ! #W, "YOUR TOTAL WORTH AS OF ",Y$," IS: " ,%C$1 1F2.T-T3 
860 IFF201 THEN920 
870 0PEN#2,"ANNUAL"\READ#2,P 



1220 !C7$ 

1230 INPUT"PRESENT YEAR (19YY): ",Y9 
1240 INPUT"YEAR FOR COMPARISON: ",Y8 
1250 FORX= 1 T020\IFTYP( 2) =0THENEXIT1 290 
1260 READ#2,Y1 ,C1 ,S1 , R1 , PI , Ml , B1 , LI ,T 
1270 IFY1=Y9THENT1=T\IFY1=Y8THENT2=T 
1280 NEXT 

1290 ! "SINCE" , Y8 , " YOUR NET WORTH HAS INCREASED " ,* C$ 1 1 F2 ,T1-T2 
1300 T=0\T1 =0\T2=0\GOT01 370 
1310 GOSUB1770 

1320 ! #W , "YEAR CASH SECURITY REALEST. PENSION", 

1330 !#W," MISC.PRP BUSINESS LIABILITY TOTAL" 

1340 GOSUB1770\RETURN 

1350 !#W,Y1 , TAB( 5) , Cl ,TAB(13) ,S1 ,TAB(22) ,R1 ,TAB(31) ,P1 , 

1360 ! #W , TAB( 40) ,M1 ,TAB(49) ,B1 ,TAB(58) ,L1 ,TAB(67) ,T2\RETURN 
1370 CL0SE#2\G0SUB1760\W=0\GOTO1 40 
1380 REM*GET ASSET INFO 
1390 RESTORE 

1400 ! "ENTER 9999 TO EXIT"\! 

1410 ! " ( )" 

1420 INPUT"ASSET/LIABILITY : ",U$ 

1430 IFU$="9999"THEN1 620\A$( 1 ,30)=FNA$( 1 ,30,U$) 

1440 ! "ENTER TO CORRECT ANY PREVIOUS ENTRY"\ ! 

1450 ! " ( )" 

1460 IN PUT" LOCATION : ",U$ 

1470 IFU$="'"THEN1410\A$(31 ,45)=FNA$(31 ,45,U$) 

1480 ! "CATEGORY : (B)USINESS (R)EAL ESTATE (S)ECURITY (P)ENSION" 
1490 ! " ( C) ASH (M) ISC. PROPERTY ( L) I ABILITY" 

1500 INPUTU$ 

1510 IFU$="""THEN1450\IFU$=""THEN1540 

1520 F0RZ=1T07\READC$\IFU$( 1 ,1 )=C$( 1 , 1 ) THENU$ = C$\NEXT 
1530 A$(46,58)=FNA$(46,58,U$) 

1540 IN PUT" ASSET/ LI ABILITY AMOUNT/ VALUE : ",U$ 

1550 IFU$="""THEN1480\IFU$=""THEN1570 
1560 V=VAL(U$) 

1570 IFA$(46,46)O"L"THEN1590 
1580 F=3\G0T01620 

1590 INPUT" CLASSIFICATION (l)REGULAR ( 2) RESTRICTED: ",F$ 

1600 IFF$ = "* "THEN 1540\IFF$ = " "THEN 1620 
1610 F = VAL(F$) \IFF<1 0RF>2THEN1 590 
1620 RETURN 

1630 DATA" CASH ", "SECURITY" ," REAL ESTATE" , "PENSION" 

1640 DATA"MISC . PROPERTY" , "BUSINESS" , "LIABILITY" 

1650 REM*FILE CREATE AND INITIALIZE SR 

1660 CREATE"WORTH" , IIXCREATE" ANNUAL" , 4 

1670 OPEN# 1 ."WORTH" , LI 

1680 I$=B$\I=0 

1690 WRITE#1 10 , 0 

1700 FORN1=OTOINT(L1*250/L)-1 

1710 WRITE#1IL*N1+5,I$,0,4I\NEXT 

1720 0PEN#2,"ANHUAL"\WRITE#2,0 

1730 CLOSE# 1 \CL0SE#2 

1740 RETURN 

1750 INPUT"PRINTER? ",A1$\IFA1$(1 ,1)="Y"THENW=1 \ RETURN 
1760 ! \INPUT"HIT RETURN TO CONTINUE" , A1 $\ ! \RETURN 
1770 L9$="-"\F0RI=1T079\L9$=L9$+"-"\NEXT\ ! #W, L9$\RETURN 
1780 L9$="="\F0RI=1T079\L9$=L9$+"="\NEXT\!#W,L9$\RETURN 
1790 CLOSE# 1 \CL0SE#2\END 



Fast Gomoku 





BY RON BURKE 



H ey! Don’t turn 

away because this pro- 
gram is in machine language. You < 
type in a Basic program that will p 
execute the machine language subroutine which 
lects the computer’s moves. 

The original version of this Gomoku program, written by 
Jerry Crouch, was published in the October 1979 issue of 
Personal Computing. I was impressed by how well the pro- 
gram played, but annoyed by its slowness, even after I 
rewrote it for maximum speed on the TRS-80. So I redid it in 
machine language, and now the program moves instantly. 
Program logic is the same as detailed in Jerry’s article, to 
which you may wish to refer. 

This machine code will execute on any Z-80 or 8080 
system with free memory between 31000 and 32400. If you 
want a version located elsewhere — say for a 4K machine — 
and have something good to trade, drop me a note in care of 
this magazine. 

On the 16K TRS-80, answer 31000 to the “MEMORY 
SIZE?" question before loading this program. Incidently, you 
can call up the “MEMORY SIZE?" question without turning 
off your machine by entering SYSTEM and then entering 
“/O”. This will also clear any resident programs out of your 
memory. 

Operation of the Basic program given here is straightfor- 
ward and doesn't need an extended description. The machine 
language subroutine is another story, but here’s how to get 
some extra fun out of it. The last line of the program contains 
weighting factors which determine the program's strategy. 
They correspond to the F array and G array described in the 
October 1979 article. Changing these will make the com- 
puter play differently — experiment a little. These numbers 
are used by the computer to calculate a value for each pos- 
sible playing location. You can see the values resulting from 
your changes on a second board as you play by making the 
following program modifications: 

1. Type a line 4 19 identical to 4 10 

2. Type a line 41 1 identical to 440 

3. Type a line 4 12 identical to 450 

4. Type line 4 13 PRINT PEEK (32000+J2); 

5. Type a line 414 identical to 500 

6. Type a line 415 identical to 510 

7. Type a line 4 16 identical to 520 

You should now be able to figure out how to program the 
computer to make germane remarks about the quality of its 
opponent's play. (Hint — line 270 causes the computer to do 
the evaluation. But notice that the computer's move is actu- 
ally made in line 320. What if line 270 were repeated else- 
where, with the indicators peeked at in lines 280 and 290 



zeroed out i 
The funny 



immediately afterward?) 
line numbers used for the data statements 
correspond to the memory locations into which the data is 
poked; for example, line 3 1420 contains data for memory 
locations 31420 to 31429. Knowing this, you can poke in 
different values to change strategies even while a game is in 
progress. 

On the sample run, notice that the computer won the game 
by its eighth move, with which it formed two groups 
of three stones open at both ends. With the weighting 
values as shown, it likes to do things like that, so watch 
out! O 



Sample Run 


THE i 


IBJECT OF THIS GftflE IS TO 


YOUR HOVE (ROM/ COLUMN) 


GET F 


IVE MARKERS IN ft SOU, 


? 5 / 8 


HHOEV 


'£R DOES THAT FIRST/ WINS. 


HY HOVE IS 6/ 5 

8 - -- -- -- -- - 


YOU f 

8 * 
n 

7 ~ 


iRE X I THE COMPUTER IS 0. 


Q _ _ _ _ 

a - -- -- -- -- - 


0 _ 




8 - - - - O - - - - - 

r f* v 


h - 




J ~ U :"s 

£ 


c _ 




0 _ 


-- 




i 


P - 


--------- 


1 2 3 4 5 6 7 8 9 8 


1 


234567898 


YOUR fluVL (SOU; C0LUHM) 






? 8 > 5 


BO tO 


U tfftNT TO HOVE FIRST ?» 


HY HOVE IS 6; 7 


HY HO 
8 - 


VE IS 5/ 5 


a 


3 - 

i 






h - 




5----0--X-- 


5 - 


o 


i 


3 - 






L 






i 




f p o ■» c £ 7 q o a 


I 


2 3 4 5 6 7 8 9 8 








continued 
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t'OUR MOVE (ROHr COLiflW) YOUR MOVE (ROfo C6LUHN) 



?■ 5 / 18 ? 3 / 6 

BY MOVE IS 6/ 6 BY HOVE IS 4/ 5 

8 - - 8 

9 - 9 

8 SI 8 X 

7 7 - - X 

6 0 0 0 - - - 8 - - X 0 9 0 O X - - 

5 0 - - X - X 5 B 0 - X - X 

4 4 Ofl 

3 3 x 

2 2 

1 1 - - - 

I 2 3 4 5 6 7 8 9 8 1 2 3 4 5 8 7 8 9 8 



YOUR MOVE (RO«,- COLUMM) YOUR MOVE CROSS/ COLUMN) 



? 6 » 8 ? 7 ? 8 

BY MOVE IS 8/ 4 BY H0VF IS 3/ 5 

8 8 - - 

9- - 9 

8 X - 8 X - 

7 - * - 7 - - X - X - - 

6 B 0 0 0 X - - 8 --X 0 0 0 0 X-- 

5 - - - - 0 - - X - X 5 O 0 - X - X 

4 4 OO 

3 - 3 OX 

2 - - - 2 

1 - 1 - - 

1 2 3 4 5 8 7 3 9 8 1 2 3 4 5 6 7 8 9 8 



YOUR MOVE (RDM/ COLUMN) 

? 8 , 3 

BY MOVE IS 4/ 6 

8 

9 - - 

8 X 

7 - - - - 

6--X0BB0X-- 
5 - - - - 0 - - X - X 

4 ----- 0 

3 

2 - - 

3 - - - 

1 2 3 4 5 8 7 8 9 8 



YOUR HOVE (ROW/ COLUMN) 

? 7 / 5 

BY HOVE IS 2/ 5 

9 

9 

8 X 

7--X-X--X-- 
8 - - X 0 0 0 0 X - - 

5 0 0 - X - X 

4 0 0 

3 OX 

2 0 

1 - 

3 2 3 4 5 6 7 8 9 8 



YOUR HOVE CROSS/ COLUMN) 
? 7 / 3 

BY HOVE IS 5/ 6 



8 

3 I UIB ! 

8 X YOUR SCORE ... »IHS: 8 

7 - - X LOSSES: 1 

6 - - X 0 0 0 0 X - - URDUS: 8 

5 0 0 - X - X 

4 0 MONT TO PLOY AGAIN ? H 

3 - - - - 

2 - READY 

3 

1 2 3 4 5-6 7 8 9 8 



EXTRA SPECIAL 

Prices & Delivery 



Store Hours: 
Mon - Fri 9-5:30 



Domestic & International 
Dealer Inquiries Invited 



ATARI-VIDEO COMPUTER 
SYSTEM 800 

8K RAM, Basic, cassette recorder $ 895 

Software & disk drives available 

The Paper Tiger is Here! 



, <■ \ 




Up to 198 characters per second 
132 columns 
6 or 8 lines per inch 

Eight software selectable character sizes 

1.75' to 9.5' adjustable feed 

Parallel (Centronics) and serial interface. 



Includes Graphics (New low price) 

Best quality cables for TRS-80 & Apple, In stock 



Checks, money orders accepted 

Add $2.50 freight charges on orders under 10 lbs. fmaster charge! 

Over 10 lbs. F O B. Cleveland 

QUASAR DATA PRODUCTS 

25151 Mitchell Dr.. No. Olmstead. Ohio 44070 (216)779-9387 
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FREE 

FLOPPY STORAGE 




The KAS-ETTE/10 library case provides an ideal 
storage unit for standard and mini floppies. 

FREE KAS-ETTE/10 with purchase of Scotch Brand™ 



Diskettes. 

Standard 8” Scotch Brand™ Diskette 



Stock no. Price/Box 

740-0K IBM Compatible $45.00 

740-32K Shugart - 32 Sector 48.00 

Mini 5V4” Scotch Brand™ Diskette 

Stock No. Price/box 

744-OK Soft Sector 44.00 

744-10K 10 Sector 44.00 

744-1 6K 16 Sector 44.00 



Take advantage of this limited offer - NOW! 

ftlpha Supply Company 



V. 



9625 Mason Ave., Chatsworth, Ca. 91311 / (213) 882-9818 
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Program Listing 

128 JEFIim-Z 

136 CL$:PRINT828/ “GO WHI-sPRIHT 
iPRIiiT’THE OBJECT OF THIS GflDE I 
S TO SET FIVE IMKERS Ifi ft ROM. * 
sMlRT'IWOEVa MS THAT FIRST U 
IRS. ’•'PRINT'YOU ftRE X l THE COUP 
UTER IS 0. " 

1 48 FORj- 31883 1033 429; REM: POKE 
j.-KHOTJ 

158 POKEi 6526; 25! POKE 1 6527; J23:R 
EH «* SUBROUTINE 1E6IRS 07 

31881 ,,, PROTECT 31888 

1 68 FOR 3=328987032488: POKE 3/ 8: HE 
XU 

178 MRM23885REH *8 THIS IS 
SOARS'S ftJBRESS MINUS 1 

183 SGSOS 483 

198 INPUT’ BO YOU fiftNT TO HOVE FI 
RST *;fti 

288 IFLEFTI(M/!)=TTHEH 278 

218 PRINT’VOUR HOVE (Mb COLUMN 
>* 

228 IHPuTRjC 
238 7=CM)6!8+C 

248 IFT)1 880RK 1 THENPRINF ILLEGft 
L HOVE B :50T0 218 

258 IFPEEK ( BOnRB+T I ( >8THEHPRI NT ” 
ILLEGAL HOVE 1 : GOTO 238 

268 POKE(]OMJtT)/l 

278 K¥=USR(8) 

238 IFPEEK(32243)=2THENG0$UB 438 
iPRINTiPRINT’YOU HIM !*::HH=Hy+ 

1 : GOTO 568 

298 IFPEEK(32283)=3THENPRINT:PRI 
HT’THE GAME IS MAUN. "JiUMJ+J: 

GOTO 568 

388 CIS 

318 CH=PE£K(32283) 

m PSEEMtlD/E 

338 CR=IHT((CH)/ie)tl 



348 CC=C!H8I(CR-1) 

358 PRINT’HV HOVE IS ';STR$CCR?.: 
V>$7R$(CC) 

368 SOSUB 418. 

378 IFPEEK(32283)=1 THENPRINF PRI 
NT 'I UIN !’.::Cy=Cy+l:GOTO 568 

380 P0KE32244.1 3 

398 GOTO 218 

488 CIS 

418 F0RJ=9T08STEP-1 
428 IF3(9PRINF ", 

438 PRINT J+lI E = 

448 F0RJ1=1T018 
456 32=3118+33 
468 S8=PEEK(B0fiRB+J2> 

478 IFS9=1?RIHT" X MGOTS 588 
488 IFS0=2PR!ilT' 0 “UGOTO 588 
498 PRINT' - ", 

588 NENTJ1 
518 PRINT 
528 NEXTJ 

538 PRINT" ".::FORj=lTOI8:PR 

IHTJ; :NERT J 

548 PRINT 

558 RETURN 

568 PRINT* YOUR SCORE ... il 

INS:’; fill; 1 LOSSES:*; eyr iraks 

578 INPUT "HAHT TO PLAY AGAIN *;A 
4:ft4=LEFTi(ftL>l) 

538 IFft$=TTHEN 168 

598 END 

31 881 Bft TA22; 9/ 33.; 1 ; ! 25.- 6,- 1 88.- 1 ! 
4 / 35 ; 5 ; 1 94 ; 32 ; 121 ; 53 ; 244/3 25 ; 254 

/Ski 94/ 5?; 121; 33/55/ !25;£2; 133; 1 
I it St St it 1 h St 1 2/ 62/ 8/ 58- 282.- !25 
; 128/214 



31841 BftTftl; 22; 9; 95/ 1 31; 21 ; 1 94; 6 
9; 121; 129/58/245/ 125/ 121/254.-3/2 
58/188/ 121/254/9/242/188/ 121/62/ 
1 / 58/ 282- 1 25/ 58/ 281/1 25 - 285/ 1 65/ 
121/123/ 254/3; 258/325 

31881 1)810321/054/9/242/ 126/521/ 
33.-282/ 525.-62; 3/334/ 319/62/ 18/58 
;283/ 125^5.- 165/ 121/53/282/ 125/ 
254/ 2/ 258/ 1 58- 121/ 62 -11/ 58; 281/1 
25/285/165/125/62/9/50 

31525 "ATA293 ; 1 25/ 285/ 165/121/12 
1/254; 18/258/57/ 125/ 128/254/18/2 
58/ 54/ 121/1 95- 1 33; 1 22/ 245/ 5 97/ 62 
/ 8; 58/ 285.-3 25; 53; 286; 1 25- 58; 287/ 
125/6/253/4/58/281/525/79 

31363 DATA62/8/1 28.- 13/ 394/ 137; 52 
1 .- 79; 58; 245; 125.-1 29; 79; 33; 44; 5 26 
/ 35/ 3 3/ 1 94; 283 ; 1 23 / 326; 1 98? 1 79; 
33.-204- 125/35/13/194/233/121/ 126 
-398; 1/119/ 128/254.-2 

31283 BftTft394/ 188- 121/53/286/ 125 
254/ 8- 282/ 247/ 121- 53- 287/ 1 25/ 25 
4/ 8; 28 it 247/ 1 23 , ] 93/ 241 / 281 ; 58- 2 
86/ 1 25; 254; 5; 258; 4 - 1 22; 62/ 2/ 58/ 2 
43/ 5 25/ 58/ 287/ 1 25/ 254/ 4 

33245 MTA194; 17/ 122.-52; 1/58/283 
; 125/58/286- 125/254/3/ 394/ 48/ 122 
/ 58/287/125/79/ 62/ 3/ 528/78/33/59 
2/ 522/35/13/194/36/ 122.-126/58/23 
6/ 125/ 595/68; 322/58 

31281 MTft286; 1 25/ 79.- 62/ 1/ 1 29.-79 
.-33/ 587/122- 35.-13.-194/59/122/126 
.- 58/ 236/ 1 25.- 6/ 253/ 4/ 58; 281 .- 1 25; 7 
9/ 62/ 8.- 1 28; 1 3/ 1 94 - 77 - 1 22/ 79/ 58/ 2 
45/325/129/79/58 

31321 1ATAS3S> 125-33.-44/ 326.-35/ 5 
3/ 194/94/122/ 126/254/8/194/124/ 2 
22/ 58/238/ 1 25- 79- 33? 8; 1 25/ 35/ 1 3/ 
194/ i 12; 122/ 126/79/58/236/125/ 12 
9/ 11 9- 128/ 254; 2/ 194/ 78 

31361 BATA322/ 393/241/283/62/ 1/5 
8.-281/ 125/58.- 1/125.-58/248/ 125-33 
/ 1/ 125/6/ 1 « 4; 35/ 53- 248, 125.-73/ 14 
5; 242 - 1 67/ 122/121; 58 - 248; 1 2 JW 28 
/ 58/281/125/62/388 

31481 BA7A384/ 194/ 349; 122/58/248 
; 1 25; 254; 8; 1 94/ 3 86/ 3 22/ 62/ 3? 58/ 2 
83.-125-281.-8 

31419 REN 

m 

ST LINE IS UEjGHTijfE FACTORS 

m 

33428 BftTfil; 1 ? 3- 9/36/ 1; 1;3- 32/ 48 




All IQ 120 & IQ 140 
terminals shipped after 
April 1,1980, carries a 
lifetime warranty* This 
warranty is supported, 
by factory direct service 
depots nationwide. 



Call or write a 
Soroc represent- 
ative and see for 
yourself that Soroc 
is offering the 
Ultimate in service 
and lowest costs. 



SEE HOW SOROC CAN 
SAVE YOU MONEY, 
VISIT OUR COST 
SAVINGS BOOTH #330 
AT N.C.C. '80. 



15 FREEDOM AVE., ANAHEIM, CA. 92801 
CTIAJ 998-8860 * (800) 854-0147 
/ TECHNOLOGY, INC. NEW YORK OFFICE: 400 MONTAUK H W V. , 
WEST ISLIP, N.Y. 11795 * (516)488-8855 



* 1 YEAR ON C.R.T. & KEYBOARD 
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Software Update 

BY DAVID LUB AR 



A t last count, there were over 3000 
new programs being offered per 
month for home computers. They range 
from slick packages with extensive 
documentation to strips of tape which 
the user has to splice into his own cas- 
sette. Following are reviews of some of 
the more interesting releases. 

Pencil Adventure 

By Shrayer and Adams 

From Adventure Processes , Inc. 

$22.50 

F or 48 K Pet , TRS-80, Apple 

Two creators of popular programs have 
pooled their talents to produce this ex- 
citing new game. In Pencil Adventure, 
you are lost in the mysterious depths of 
a memory-mapped video, and must 
search for treasures such as the Golden 
Manuscript and the Letterus Formus. 
But Beware! There are monsters lurk- 
ing here, including Scrolls who will 
sweep you away to their dens, and Errs, 
hideous creatures that try to block your 
every move. Other hazards add excite- 
ment to the game. Watch out for the 
Wraparound; fall in here and you'll be 
carried back to where you started. 




All in all, this is an exciting, inter- 
active game, and it will probably take 
its place among software classics. 
Highly recommended. 




Companion 
By U.N. Needed 

From A1 Implementations $799.95 
For SWTP systems 

This combination software/hardware 
package allows the computer to join 
you for dinner. A grinding, chewing, 
swallowing unit, containing enzymes 
and hydrochloric acid, acts as the com- 
puter's mouth and stomach. Software 
allows it to comment on the food and 
make dinner conversation. Variations 
include Gourmet, where the comments 
are highly discerning, and Baby, where 
the unit must be fed one spoonful at a 
time and will often refuse to eat unless 
the user tastes some himself or makes 
silly noises. Though this is an expen- 
sive package, it's refreshing to see 
computers being put to new and prac- 
tical uses. 



Lunar Launcher 
By Ed Nasa 

One Small Step Co. $5.95 
For 4K TRS-80 LI 

The object of this game is to get your 
rocket (a small square) off the moon (a 
horizontal line) and up to the stars 
(more small squares). Launching is 
achieved by pressing any key. Speed is 
controlled by the computer. If you for- 
get to press a key, the rocket won t 
launch. Recommended for children 
under 5 and for persons who hate to 
lose. 

Super Simulation 
By Dr. Marvin Marvin 
From Grantgrabber Labs $29.95 
For OSI C4P MF 

Simultations are one of the most popu- 
lar areas of computer games. This disk 
contains four rather creative examples. 
In Planeria, you must try to create a 
large colony of flat worms, starting with 
a single worm and a sharp knife. In 
Planeria II, the object is to get as many 
heads as possible on one worm, while 
maintaining enough food for each 
head. Apartment is a simulation in 
which you try to control a roach popula- 
tion while attempting not to spoil the 
decor of the kitchen or poisoning your- 
self. This one is tough and exciting. 
Finally, there is Grant. You are a scien- 
tist trying to get money for projects 
while not losing too much free time. 
These unusual games are lots of fun. 
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Illustrated bv .lackv Brill 




Word and Number Games 
By Billy 

From His Room. 58$ + postage and 

handling 

For IK Kim 



Sound Games 
By Barbi and Ken Doll 
From Cottage Concepts $15.95 
For 16K Apple 

As the title implies, these games make 
extensive use of the Apple's internal 
speaker. In Pong, the computer pro- 
duces the sound “pong" whenever a 
key is depressed. (If the user is de- 
pressed, nothing happens.) The second 
game, Ping-Pong, is similar to Pong, 
but produces two sounds. While rather 
boring by themselves, these games 
might be used as subroutines in your 
own programs. 



This C2 cassette (I didn’t know they 
made them that short) comes with one 
game on each side. 2001 is a number 
game. The Kim prints a random num- 
ber from 0 to 2000 on its LED display. 
You have to enter a number which, 
when added to the Kim’s number, will 
result in a total of 2001 . If you lose, vou 
get another try. The other game, Bos- 
ton, requires a video or printer. The 
player and computer take turns naming 
cities. The first to name Boston wins. 
While these games aren’t exactly great, 
you can’t beat the price. 



Batch ofBasik Gamez 
ByT.W. 

From Rippoff, Ltd. $78.95 
One size fits all 

The author of this cassette, who, for 
some reason, prefers to remain anon- 
ymous, has assembled a collection of 
games in Basic. Some of the games 
seem slightly familiar, though this 
could be mere coincidence. Included 
are Guess the Vegetable, Car Trek^, 
Master Beagles, Hurple, Bewari and 
others. Documentation is on two 3 x 5 
file cards. The cassette is strangely 
labeled. My copy said “Greatest Hits 
of Hank Williams," and snatches of 
"Your Cheating Heart" could be heard 
between programs. The tape failed to 
load after 100 tries at different volume 
and tone settings. A call to Rippoff, 
Ltd., produced the information that 
their number is no longer in use. Not 
recommended unless you like Country 
and Western music. 



That wraps up the reviews. To re- 
ceive more information, send me $200 
(or the equivalent in Swiss Francs) and 
I'll send you a complete list as soon as 
my printer arrives from Commodore. □ 



New Programs from LEVEL IV PRODUCTS, INC. 



Invaders Plus with Stereo Sound by L. Ashmun $24.95 on Disk 

Invaders Plus-Mono Sound $19.95 on Cassette 

Match Book Football with Sound $9.95 C 

Boss (see 80 Micro for details) byV.B. Hester $29.95 C 

Purge by Breeze Computing $29.95 D 

Format by Breeze Computing $14.95 D 

Adventure #9 from Scott Adams $14.95 D 

Mystery Mansion Adventure by G. Hasset $1 2.95 C 

Atlantis Adventure by C. Hasset $12.95 C 

NEWDOS 80 by Apparat Inc $149.95 D 

Lost Dutchman's Gold & Spider Mountain Adventure both only $1 9.95 C 

New Low Price on Okidata Uline 80 Printer $699.00 

Reset Extender $3.99 

MPI Disk Drive (drive only) $245.00 

Hard Shell Cases 5' special ea. $2.50 

8 inch Diskettes for the MOD II box of 10 $29.95 



C = Cassette' O = Disk 



Write for more information on any program listed above. All Hardware Level IV Products carries can be repaired in our 
full service repair department. We repair modified MOD-1 computers. Call for more details. 



We Accept MASTER CHARGE and VISA 



From Level IV Products Inc. 

32238 Schoolcraft Suite F4 • Livonia, Michigan 48154 
1-800-521-3305 outside Mich • 1-313-525-6200 inside Mich 

10% discountjDn prepaid software orders. Please add $2.00 for shipping and handling. For C.O.D. please add another $1.25. All hard- 
ware shipped freight collect. 
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MOVING 
UP TO 

lowercase 



S hucks, let’s admit it. We TRS-80 
owners are special. We have so 
much to choose from in the way of new 
peripherals, hardware, software and 
firmware. If you are anything at all like 
the rest of us TRS-80 owners, you have 
your own personal list of future goodies 
just waiting for the right money to come 
along. 

Ever thought about lower case? A 
lower case modification may not be on 
your list at all, but there are some very 
good reasons why perhaps it should be. 
I’ll be talking more about that later. 
Then again, you may have known all 
along that you would eventually be tak- 
ing the LC plunge . . . 

Why lower case? A good question. If 
your interests in personal computing lie 
only in the areas of games and/or Basic 
language programming, then you may 
see no particular advantage in having a 
lower case capability. However, if you 
plan to be involved in any way in appli- 
cations, then you should really give 
some serious thought to lower case. 
This especially applies if the applica- 
tion will be in an office environment; 
all caps can annoy the uninitiated. 
Naturally, upper/lower case displays 
are much less straining to the eyes. 
They also aid text comprehension and 
make reading easier. Indeed, therein 
lies an excellent reason for considering 
lower case even if you aren’t going to 
be concerned with an “outside” user. 
Computer prompts and responses be- 
come much more personal when not 
made all in caps. 

Of course, any application, office or 
otherwise, which incorporates word or 
text processing should by definition in- 



B Y DAVE ROSE 



elude a lower case capability. Just try to 
imagine a useful, effective word pro- 
cessor without lower case. 

Once you’ve made the decision to 
purchase a lower case modification (or 
“mod” for short) for your TRS-80, 
you'll need to consider several factors. 
Not the least of these is which mod to 
buy. Should you invest in the new 
Radio Shack modification, or in one of 
those mail-order mods advertised in the 
pages of most microcomputer maga- 
zines? The difference in price is sub- 
stantial. Radio Shack charges around 
$100 for their mod, while the average 
mail-order modification costs about 
$30. Obviously, there are reasons for 
the difference, and I’ll explore some of 
them with you. 

Installation Considerations 

Here Radio Shack has it all over the 
mail-order folks, particularly if you’re 
not a hardware type. The Radio Shack 
mod is installed in their usual manner; 
simply bring in your keyboard, leave it 
a while, pay, and go home with a 
tested, guaranteed lower case modifi- 
cation. This system has several distinct 
advantages over the mail-order mods; it 
can be installed in a matter of days, 
usually one day in the larger metropol- 
itan areas (providing, of course, the 
local Radio Shack service center has 
the required part in stock), and you can 
be assured that the new mod has been 
tested and is working perfectly right 
from the first. 

In the mail-order case however, the 
mod may not arrive for as long as two 
weeks, and then success depends total- 
ly upon your abilities in the hardware 



department (soldering without over- 
heating the components, etc.). In some 
cases the parts themselves are not ac- 
tually included with the instructions, so 
you spend additional time and trouble 
shopping around for the right selection 
of parts. I can personally testify as to 
the frustration involved in that little 
exercise. 

It’s important to remember that most 
of the mail-order mods cost a lot less 
than the Radio Shack version, and if 
hardware is your thing, installation 
really is quite simple. Care in terms of 
static, heat damage, and so forth is 
necessary, but probably second nature 
to you if you're a real hardware buff. 

Using the Mod 

Methods for invoking the lower case 
capability vary from one mail-order 
mod to the next. Some use software 
control, while others go the hardware 
route (a switch). Some do away with 
the TRS-80’s graphics abilities in favor 
of lower case. RAM is used in some 
cases, not at all in others. Anyone in the 
market for a mail-order mod should 
take care to notice exactly what is in- 
cluded, and what will be needed in 
terms of memory. 

The Radio Shack modification uses 
the software approach. The lower case 
driver is a machine-language program 
with a few interesting twists of its own. 
When activated, it locates itself to the 
highest available location in RAM 
(changing its own internal memory 
references accordingly), then adjusts 
the MEMORY SIZE indicator to the new 
amount. This is nothing short of an 
inspiration to those of us who really get 
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Do more 

than ever before - 



spend less than 

you planned 




Heath makes the All-In-One Computer more versatile 



Many satisfied customers know 
Heath takes the risk out of buying a 
balanced computer system. With the 
Heathkit All-In-One Computer, you 
get 16K Random Access Memory 
(expandable to 48K), keyboard, video 
terminal and floppy disk system - 
together in one self-contained, com- 
pact unit - for up to hundreds of 
dollars less than comparable systems. 

Heath now makes the All-In-One 
Computer more versatile than ever! 
The new Heathkit H77 Floppy Disk 
System gives the All-In-One even 
more data storage and recall capac- 
ity. Combined, the All- In-One and 
H77 Floppy Disk give you up to 300K 



bytes of on-line data storage - 
enough to hold entire files. You can 
mount operating system and pro- 
gram disks at the same time, to make 
computing even faster. 

You can run programs written in 
MICROSOFT™ BASIC™ and As- 
sembly Languages, and all current 
software written for the popular 
Heathkit H8 Computer. 

Heath Users Group (HUG) will share 
with you a library of over 500 pro- 
grams to make your computer serve 
you in ways you never imagined. 

Theres no better way to learn about 
computer systems - and save money 
- than by building one yourself. 



Concise, easy-to-follow Heathkit 
assembly manuals show you the 
way, from start to finish. And a na- 
tionwide network of service centers 
protects your computer investment. 

loin the Heathkit computer family 
today - and pocket the savings! 

For complete details on Heathkit 
computer systems, as well as nearly 
400 other electronic kits for your 
home, work or pleasure, send today 
for your free, value -packed Heathkit 
catalog. Or pick up your copy at the 
nearest Heathkit Electronic Center. 



Heathkit 



SEND FOR FREE CATALOG 



VISIT YOUR HEATHKIT STORE 



Write to: HEATH COMPANY. 
DEPARTMENT 352 674, 
BENTON HARBOR. MI 49022 





In the U.S. and Canada, visit your 
nearby Heathkit Electronic Center where 
Heathkit products are also displayed, 
sold and serviced. See the white pages of 
your phone book. In the U.S., Heathkit 
Electronic Centers are units of 
Veritechnology Electronics Corporation. 



CP-184 
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a rush out of seeing a truly self-modify- 
ing piece of software at work. Once 
initialized, the program becomes part 
of the keyboard scan, and is almost 
totally transparent to the system. 

Shift-0 serves as a toggle to activate 
the lower case driver. Pressing Shift-0 
causes lower case to be displayed nor- 
mally and upper case to be displayed 
with use of the Shift key, as one would 
expect. Pressing Shift-0 again causes 
the computer to behave exactly as it did 
without the mod. This then gives the 
Shift-0 key a Shift-lock function, also 
quite handy. The total memory require- 
ment for the driver program is 525 
bytes. 

The computer seems to react quite 
naturally to the Radio Shack mod, rec- 
ognizing commands in either upper or 
lower case, and making its responses 
using proper upper/lower case syntax. 
For instance, the TRS-80 responds to 
an out-of-memory condition in step 70 
with “Out of Memory in 70" with 
lower case and capital letters in all of 
the right places. The computer re- 
sponds in like fashion to some of the 
mail-order modifications and not at all 
to others. 1 haven’t found mention of 
this particular aspect in anyone’s ad- 
vertisements, including Radio Shack’s. 

The Display Itself 

Display is a consideration of partic- 
ular importance in my opinion. In al- 
most all of the mail-order or do-it-your- 
self mods that I’ve seen or heard about, 
the lower case letters use only the upper 
two-thirds of the line display space. 
This is the same display area used by 
the upper case characters. In other 
words, when a lower case letter occurs 
which should descend below the nor- 
mal print line, it doesn't. For instance, 
a lower case “p" will give the appear- 
ance of a smaller version of a capital 
“P'\ rather than descend below the 
print line as you would expect a lower 
case “p” to do. While this may be a 
minor inconvenience, it does take some 
getting used to, especially in word 
processing applications. This problem 
has been one of the complaints with the 
Electric Pencil (an excellent word 
processor, by the way). The letters 
which will appear strange until one gets 
used to them are “g", “j", “p", “q" 
and “y". 

The Radio Shack version displays 
“true descenders", that is, the afore- 
mentioned lower case letters do extend 
below the print line. When it comes to 
readability, this is a major plus for the 
Tandy mod. 
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Use With Other Software 

Suddenly we find things getting a bit 
sticky. Certain types of fairly popular 
user software will just not work with 
the Radio Shack modification (for in- 
stance, Electric Pencil). In fact. Radio 
Shack admits in their little documen- 
tation book that the R/S mod doesn’t 
even work with all of their software! 
The problem is just as bad or worse in 
the other direction. Many of the mail- 
order mods are so specialized that they 
are guaranteed to work correctly with 
only a single piece of software. No 
doubt the quiet of the night somewhere 
harbors that dedicated individual who 
is even now developing the software 
patch which will take care of this prob- 
lem, hopefully both ways. A salute 
to you, oh backbone of microcom- 
puting. . . 

Know What You Need 

Meanwhile, the question of making a 
choice still looms, with some fairly stiff 
penalties for error (believe me). My 
advice is this: do your homework! Be 
aware of your possible future needs as 
well as your present requirements. 
Don't buy anything without taking the 
time to do some serious research. 

The Radio Shack mod is the obvious 
choice if you intend to buy their new 
word processor package (for which it 
was designed). The RS mod would also 
seem the best choice if you have $100, 
and nothing more in mind than en- 
hanced readability and system com- 
patability. 

A mail-order or do-it-yourself type 
lower case modification would be a 
good choice if you really want lower 
case, don’t mind a little hardware 
workout, and find most of your allow- 
ance already spent. If this sounds like 
you, let me again caution you — know 
what you are getting. Having fulfilled 
that one condition, you may be able to 
find something perfectly suited to your 
needs for a lot less than Radio Shack 
prices. 

One last word of advice: if you know 
that a particular piece of software lies in 
your future (a text formatter, for ex- 
ample), by all means peruse the docu- 
mentation associated with that software 
before making any lower case deci- 
sions. Practically all of the more 
reputable software dealers sell their 
documentation separately for a small 
fee, and the cost will more than justify 
itself by returning to you the warm 
glow of certainty that comes from 
knowing what the devil you're doing.Q 



A growing 

line of tools to 
expand the Apple. 



7440A Programmable Interrupt Timer Module. 

Time events in four operating modes —continu- 
ous, single shot, frequency comparison, and 
pulse width comparison. Includes three 16-bit 
interval timers, plus flexible patch area for 
external interface. Programmable interrupts, 
on-board ROM, and much more. 

7720A Parallel Interface. Two bi-directional 8-bit 
I/O ports will connect your Apple to a variety of 
parallel devices, including printers, paper tape 
equipment, current relays, external ori/off 
devices. Full featured, programmable inter- 
rupts, supports DMA daisy chaining. 

7811 B Arithmetic Processor. Interfaces with 
Applesoft, so you just plug in and run. Based 
on the AM 9511 device, provides full 16/32-bit 
arithmetic, floating point, trigonometric, loga- 
rithmic, exponential functions. Programmed I/O 
data transfer, much, much more. 

771 0A Asynchronous Serial Interface. Conform- 
ing to RS-232-C A thru E 1978 standard, this 
card will drive a variety of serial devices such as 
CRT terminals, printers, paper tape devices, or 
communicate with any standard RS-232 device, 
including other computers. Full hand-shaking, 
and fully compatible with Apple PASCAL! 

7470A BCD A ID Converter. Converts a DC 

voltage to a BCD number for computerized 
monitoring and analysis. Typical inputs include 
DC inputs from temperature or pressure 
transducers. Single channel A/D, 400 ms 
per conversion. 

7490A GPtB IEEE 488 Interface. A true imple- 
mentation of the IEEE 488 standard— the 
standard protocol for instrumentation and test 
devices. Control and monitor test instruments 
such as digital voltmeters, plotters, function 
generators, or any other device using the 
IEEE 488. 

7114A PROM Module. Permits the addition to or 
replacement of Apple II firmware without 
removing the Apple II ROMs. Available with 
on-board enable/disable toggle switch. 

7500 A Wire Wrap Board. For prototyping your 
own designs. 

7510A Solder Board. 

7590A Extender Board. 

7016A 16K Dynamic Memory Add-On. 

Watch this space for new CCS products for 
the Apple. We’ve got some real surprises in the 
works. To find out more about the CCS product 
line, visit your local computer retailer. The CCS 
product line is available at over 250 locations 
nationally , including most that carry the Apple. 

Or circle the reader service number on this ad. 

Apple II, Apple II Plus, and Applesoft are trademarks 
of the Apple Corporation. 

CCS makes the difference. 





We see the Apple 



We see it as a good 
way to get things done. 

Apple has built a great computer. We at CCS have 
built a great line of peripherals and components to expand 
the Apple. To do almost anything you want to get done 
with a computer. 

If you wafit to do business with an Apple, we’ve got 
tools to connect the Apple to standard business printers and 
terminals. Or to modems, for communications over tele- 
phone lines, with other computers, even with other Apples. 

If you want to apply your Apple to engineering, scien- 
tific, or graphic projects, we’ve got tools for high-powered, 



high-speed math functions, and fast, high resolution graph- 
ics. And tools to connect the Apple to lab test equipment 
like function generators or plotters. 

And we have tools to connect the Apple to the outside 
world, including A/D converters and interval timers with 
external interface. 

We make components for the S-100 bus, the PET, and 
the TRS-80, too. We built our products to deliver hard- 
nosed value to the OEM, and to the inventor who knows the 
best, at prices that are unbeaten. 

To find out how much computer your Apple II can be, 
see things our way. Because for serious users with serious 
uses for the Apple, we’ve got the tools. 




California Computer Systems 

250 Caribbean Sunnyvale, CA 94086 (408) 734-5811 
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FROM PRQGRAMMA 

HI-RESOLUTION GRAPHICS FOR THE TRS-80® 





DEMONSTRATION PROGRAMS 

The 80-GRAFIX board is supplied 
with a Character Generator software 
and several demonstration programs. 




FINALLY, AT LAST. . . 

HI- RESOLUTION GRAPHICS is available for your 
TRS-80 computer system. The 80-GRAFIX board from 
PROGRAMMA International, Inc. gives your TRS-80 high 
resolution capability that is greater than the Commodore 
CBM/PET or even the revered APPLE II. 

80-GRAFIX gives the TRS-80 an effective screen of 
384X192 pixels, versus the normal 127X192 for the 
TRS-80, 80X50 for the CBM/PET, or the 280X192 of an 
APPLE II. As an added feature, 80-GRAFIX offers you 
lower case characters at no additional cost. Of course, you 
can also create your own set of up to 64 original characters 
using the supplied Character Generator software. 

The 80-GRAFIX board is simple to install (note that this 
voids your Radio Shack warranty), and programming is 
done through BASIC. 80-GRAFIX opens up a whole new 
realm of software development and excitement never 
dreamed of for the TRS-80! 




INVERSE VIDEO 

The 80-GRAFIX board allows you to 
do inverse video to high-light your 
screen displays. 




CHARACTER GENERATOR 

The supplied character generator 
software allows you to create your 
own character set of up to 
64 original characters. 




REAL-TIME GRAPHIC GAMES 

With the 80-GRAFIX board you can 
write exciting real-time games using 
BASIC. 




EASY INSTALLATION 

The 80-GRAFIX board is simple to 
install and fits inside the TRS-80 case. 




GRAPHICS GALORE 

The 80-GRAFIX board and 
the supplied Character Generator 
allow you to become an artist. 




ELECTRONIC DESIGN 

The 80-GRAF IX board has unlimited 
application in Electronic design 
and Education. 



80-GRAFIX HI-RESOLUTION 

Finally, the only means to protect 
your computer investment is to order 
an 80-GRAFIX board TODAY! 



EXCITEMENT & FUN 

Open up a new realm of software 
development with the 80-GRAFIX 
board. 



Available exclusively through PROGRAMMA at the cost of $149.95 

Please check with us for availability prior to ordering 

VISA and MASTERCHARGE accepted 

TRS-80 is a registered trademark of the Tandy Corp. 



PROGRAMMA 
INTERNATIONAL, I IMG. 

3400 Wilshire Blvd. 

Los Angeles, CA 90010 

(213) 384-0579 • 384-1116 • 384-1117 
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D iary, a program for recording your innermost 
thoughts, was written for a Sol Terminal Com- 
puter with 32K of memory. North Star disk drive and 
North Star Basic Version 6, Release 3. 

The program, which runs in approximately 10K of 
memory, has three major routines: initialization of the 
diary; writing a file entry; and reading a file entry. 

Initialization of Diary sets the parameters of the file. 
In this case, I wanted the file to contain the number of 
entries in the file to make accessing easy, dates to 
facilitate reviewing a particular entry and finally the 
entries themselves. 

I assigned the variable J to the number of entries in 
the file and represent J in 2 bytes. D$ represents the 
date entries with each date being an 8-byte segment of 
D$. The length of this string is determined by the 
number of entries in the diary (99), times the length of 
each segment (8 bytes). Thus, D$ will be 99 x 8 = 795 
bytes long. North Star Basic requires the addition of 3 
bytes to each string over 256 bytes so the total of DS is 
798 bytes. 

Finally, the actual diary entries are limited to 10 
lines of 60 characters each. I find this ample space for a 
daily entry. The 600 bytes for each entry is assigned to 
A$. Again, 3 bytes are added to the string, giving a 
total of 603 bytes. 

The above information provides the formula for 
accessing any diary entry in the file. Random access in 
North Star Basic is accomplished by “jumping over” 
files not desired. The “jump” number, assigned to F, 
is determined by 2 + 798+(603 x Z) +1. The “1” is 
required to start at the beginning of the file accessed. 
The variable Z is the number of files to skip. 

Single-sided North Star disks have 350 sectors of 
256 bytes each. To determine the number of sectors 
required for the diary file, the number of bytes in the 
total file (approximately 60,000) is divided by 256, 



giving approximately 240 sectors. The file’s 240 sectors 
plus Basic’s 45, DOS’s 10, and the program’s 12, fill 
up most of a disk. 

Basically, all the initialization routine at lines 245 to 
310 does is write the variables J and D$ and then the 
variable A$ 99 times. The “Fill” statements allow a 
flashing asterisk during initialization by using the Sol’s 
memory mapped video. 

The second major program routine is in lines 535 
through 690; it allows the writing of a file entry. In 
North Star Basic, a string is accessed character by 
character. Lines 560 to 600 break the A$ string into 
units of 60 characters each, which is the line length for 
each entry. Line 575 places a mark on the 60th character 
of the line so it is not accidently overwritten. Line 585 
allows terminating an entry before all ten lines are used 
up by typing a in the first space of a new line. Line 
685 clears all that was in the A$ so subsequent entries 
during the same run of the program will not contain 
previously entered data. 

The final routine mentioned, which allows viewing 
previous file entries, is in lines 315 through 530. Line 
375 to 405 break the 795-byte long D$ into 8-byte 
blocks so that date entries appear separately. I recom- 
mend the form 12>30>79 but any 8-byte-long way of 
writing the date will do. 

A few notes about North Star Basic: 

• The “ !” is shorthand for the PRINT statement. 

• Reading and writing to disk is done in random 
access mode, accomplished by “jumping” the number 
of bytes specified by the variable following the 
”%”(in this case F). 

• The “noendmark” at the end of each read or write 
operation inhibits the writing of an endmark, making 
the calculations of the file lengths easier. 

• Finally, CHR$( 1 1) clears the screen for a cleaner 

looking output. □ 



Illustration by Susan Genser 
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Program Listing 

100 REM DIARY PROGRAM BY h. Blair Sibley, 1979. 

1 05 DIM A$ ( 603 ) ,D*<795) 

110 N=99\REM THIS IS THE NUMBER OF ENTRIES PER FILE 
115 V 1 $ = CHR$ < 1 1 ) \REM THIS CLEARS THE SCREEN 
120 ! V 1 • 

125 FOR V = 1 TO 6\ ! \NEXT V 

130 ! M FOR AUTHORIZED EYES" 

1 35 ! 

1 40 ! 

145 !" ONLY" 

150 FILL 52928,32 

155 FOR V = 1 TO 1000 \NEXT 

165 ! VI ♦ 

170 !" This diary program has three functions:" 

175 ! 

180 ! " V = View an entry in the diary" 

185 ! 

190 ! " U » Urite an entry to the diary" 

195 ! 

200 I" S = Stop the progran" 

205 ! 

210 ! 

215 INPUT"Please input the desired function : ",Z$(1,1) 

220 IF Z$(1 ,1 ) = "I" THEN 245 

225 IF Z$( 1 , 1 > = "V" THEN 315 

230 IF Z$< 1 , 1 )="U" THEN 535 

235 IF Z$<1,1)="S" THEN GOTO 715 

240 ("Wrong entry, try again. "\GOTO 170 

245 REM THIS UILL INITIALIZE THE SYSTEM 

250 J=1 

255 ! V 1 $ 

26 0 I" As long as the is flashing, all is well." 

265 OPEN #1 , "DIARY" 

270 URITE Ml , J,D$ 

275 FOR G= 1 TO N 
280 FILL 52304,42 

285 URITE Ml ,A$ 

290 FILL 52304,32 

295 FOR X7= 1 TO 100\NEXT X7 

300 NEXT G 

305 CLOSE Ml 

310 GOTO 165 

315 REM THIS UILL READ A FILE AND PRINT IT OUT 
320 ! V 1 $ 

325 !" The following is the list of entries made to date" 
330 ! "on this file. After they have printed out, choose the" 
335 ! "one you wish to see. If you don't want to see any" 

340 ‘"type 'NONE-'." 

345 » 

350 ! 

355 OPEN Ml , "DIARY" 

360 T = 1 

365 READ M1X0,J,D$ 

368 X=0 

370 FOR Z=1 TO J 
375 S = T + 7 <• 

380 !D*<T,S>," ", 

385 X=X+1\ IF X=5 THEN 390 ELSE 395 

390 X=0\ ! 

395 T = T ♦ 8 

400 NEXT Z 




Sample Run 

FOR AUTHORIZED EYES 



ONLY 



This diary program has three functions: 

V = View an entry in the diary 
U = Urite an entry to the diary 
S = Stop the prograM 

Please input the desired function : U 

You have ten lines in which to type your Message. 

1 

? As I filled up mv car with the expensive stuff today I 
2 

TbeceiMe ciMazed at the ingenuity of the people in control 

3 

?in keeping My Mind so preoccupied with the problems of 

4 

?supply that I had little time to worry or get Mad about the 

5 

?outrageous price. God help us if the proponents of 

6 

?Nuc lear Power learn the sane trick. I fear the price 

7 

? would be Much to dear. 

8 

?* 

Dates are to be typed nuMerically (1>1>79). 

What is the date of this entry ? 6>2S>79 
This is the 18 entry into this file. 

This diary program has three functions: 

V = View an entry in the diary 

U = Urite an entry to the diary 



S = Stop the prograM 
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5 REM THIS UILL ALLOW THE CHOOSING OF A HATE TO PRINT 
) ! \ ! 

5 INPUT "Which date would you like to see ? H ,D1$<1,8) 

) IF DISCI , 4 ) = " N 0 N E " THEN 422 ELSE 425 

> CLOSE H 1 \G0T0 165 
j T = 1 

) FOR Z=1 TO J 
5 S=T+7 

) IF D1$(1,8) * D$<T,S) THEN EXIT 465 

> T = T + 8 
) NEXT Z 

> ! '’There is an error. Da tes Must be typed exactly as above." 

) ! "Please try agai n . "\G0T0 415 

i REM READ AND PRINT THE DESIRED FILE 
) Z = Z - 1 

> ! V 1 $ 

> !"The date for this entry is ",D1$<1,8> 

> !\! 

) F = 80 1 + <603*Z) 
i READ H1ZF,A$ 

) FOR Z=1 TO 600 STEP 60 

► !A$<Z,Z+59) 

► NEXT Z 

’ ! \ ! \INPUT"Type a carriage return to return to functions " A1$ 

► CLOSE #1 
i ! VI $ 

i GOTO 165 

• REM THIS WILL ALLOW THE WRITING OF AN ENTRY 
i ! VI $ 
i n = 0 

' !"You have ten lines in which to type your Message." 

: i 

» A = 1 
i D = D + 1 

IF D= 1 1 THEN 600 
! D , T A B < 6 0 ) , " ! " 

INPUT A*<A,A+59) 

IF A$ ( A v A ) s "*" THEN 600 
A=A+60\G0T0 565 

REM A$ HAS NOW BEEN LOADED AND IT IS READY TO SAVE TO DISK 



! "Dates are to be typed numerically <1>1>79)." 

! 

INPUT"What is the date of this entry ? H ,D1$<1.8) 
OPEN HI. "DIARY" 

READ H1Z0,J,D$ 

i 



0 !"This is the".J. M entry into this file." 

5 IF J>N THEN 695 
0 D$< J*8+1 , J*8+8)= D1$<1,8) 

5 F = 801 + ( J*603 ) 

0 WRITE HI ZF , A*,NOENDhARK 
5 J = J + 1 

0 WRITE HI ZO , J, D$ , NOENDMARK 
5 CLOSE HI 

5 FOR T = 1 TO 600 STEP 1 0\A* ( T . T + 1 0 ) * " "\NEXT T 

0 GOTO 165 

5 ! "The legnth of the diary file will be exceeded by" 

0 ! "this entry. It is thus tine to start a new diary" 

5 ! "file." 

0 GOTO 165 
5 CLOSE HI 
0 ! VI * 

5 !"End of program. " 

0 FOR V= 1 TO 500NNEXT 
5 ! VI ♦ 

D END 
ady 



Please input the desired function 



V 



The following is the list of entries Hc.de to date 
on this file. After they have printed out. choose the 
one you wish to see. If you don't want to see any 
type “NONE-. 



5 > 4 > 7 9 9 
5 > 2 3 > 7 9 
6> 1 1 >79 



4>25>79 

5 > 1 5 > 7 9 
5>28>79 

6 > 1 5 >7 9 



4>2»8>79 
5 > 1 6 > 7 9 
5 > 3 0 > 7 9 
6> 1 6>79 



4>30>79 
5> 1 7 >79 
6 > 2 > 7 9 9 
6 > 2 5 > 7 9 



5 > 3 > 7 9 9 
5 > 20 >7 9 
6 >8 >79 9 



Uhich date would you like to see ? 6>25>79 
The date for this entry is 6>25>79 



As I filled up «y car with the expensive stuff today I 
bee a he a hazed at the ingenuity of the people in control 
in keeping «y hind so preoccupied with the problens of 
supply that I had little tine to worry or get Mad about the 
outrageous price. God help us if the proponents of 
Nuclear Power learn the sane trick. I fear the price 
would be Much to dear. 




Type a carriage return to return to functions 
This diary prograh has three functions: 

V = View an entry in the diary 
W = Write an entry to the diary 
S = Stop the program 

Please input the desired function : S 
End of prograh. 
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Fastmath 

B Y R . P . FORD AND J . G . S PARTI 



W ith the beginning of a new school 
term it was fortuitous that a friend 
of mine bought a new computer system 
and leased his old one to me. I wanted 
to help both my elementary grade chil- 
dren but my busy schedule wouldn't 
allow it. Then the idea of using the 
computer as a surrogate tutor in 
mathematics came to me. 

After consulting with teachers and 
many hours of programming, addi- 
tional sections for presentation of the 
data were formatted so the children 
could easily see and respond. 

Although a child could run the pro- 
gram, a parent, tutor or guardian can 
change the parameters of how many 
problems to present or the length of 
time the child may work before he/she 
is interrupted and scored. 

Problems are presented vertically 
rather than horizontally to allow the 
child to grasp the problem in a more 
familiar format. Errors are caught right 
after input of the erroneous digits. 

Adjustment of problems for grade 
levels are made allowing a child harder 
and harder problems each year. A 
printed listing of how well the child did 
on various levels of difficulty can help 
the parent determine the problem areas 
of the child. 

Answers are inputted in a right-to- 
left form making a child add column by 
column. 

My computer consists of a PolyMor- 

- 1- ■ - o — * oon ^ , 



\ 



♦ Do you want <3 Time Limit NO 

♦ Qkr Then the user can only 
answer a set no* of Questions 

♦Maximum no. of Questions <20> 1000 
Too Large - 100 Maximum 
♦Maximum no* of Questions <20> 4 



7 

Figure 1 

\ 



Type answers as ones y tens 
& hundreds 

For example 

An answer of 47 would be 
typed in as '7' and v 4' 

What grade are you in ROYJ 3 



7 

Figure 3 

\ 



4 problems left 27 

f 12 

•■= B0G00000 ! ! ! ! 

Try again You blew it ! ! 

Try again 49 



\ 

Hi r What's your Name 
ROY HUNTER Thank you y ROY 

ROY - You will have 4 problems 
to answer 

To help you out y when 
answering the problems you will 
not have to press the return 
key Hit any key to continue* ♦ 



7 

Figure 2 

\ 



4 problems left 27 

+ 12 

* 8 



7 

Figure 4 

*\ 



4 problems left 27 
+ 12 

=•• B0000000 ! ! ! ! 

Try again You blew it ! ! 

Try again You can do better 

The correct answer is 39 



s 

s 







\ 



4 problems left 14 

+ 7 



21 



7 

Figure 7 



X 



2 problems left 50 

f 43 
= 83 



7 

Figure 9 



\ 



1 problems left 13 

f 30 
= 43 



7 

Figure 11 



'\ 



Well* ROY 

There were 9 Problems Si ven 
Of which you answered 5 
correctly for a percentage 
of 55 ♦ 6 % 

Better luck next time 



7 

Figure 13 
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3 problems left 17 

•f 11 

« 28 



7 

Figure 8 

. 

2 problems left 50 

f 43 
- Wrong 

Try again 93 

n J 

Figure 10 

N 

0 problems left 30 



f 52 
== 82 
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Figure 12 



N 



Prob ♦ 


D ifficult y T :i m e 


Correct 


1 


48 


129.0 


Wr an <3 




48 


176.0 


Wrong 


3 


48 


201.0 


Wrong 


4 


30 


194.0 


Right 


5 


40 


1785.0 


Right 


6 


48 


1868.0 


Wrong 


7 


48 


1910.0 


R i ght 


8 


28 


2166.0 


Right 


9 


40 


1935.0 


Right 


TOTAL POSSIBLE 


SCORE ■•= 


558 



YOUR SCORE = 378 

7 

Figure 14 



Program Notes 

Lines 10 to 40 reserve array and 
string space and initialize the random 
number generator. Line 70 asks for the 
child's name. If a CTRL/P (ASCII value 
16) is entered the program branches to 
the “Parent's Section" (lines 1160 to 
1270). Here, the parameters for the 
session may be reset to the desired 
maximum. 

Lines 100 to 150 examine the input 
for a first name so that a more personal 
session is obtained. If a blank name is 
input, the name ‘NONAME' is substi- 
tuted. Printing of preliminary instruc- 
tions and number of problems (or 
seconds) is within lines 160 to 280. 
With Lines 290 to 420 a grade level is 
requested, checked if valid and a slight- 
ly humorous reply is given if the level 
exceeds fourth grade. 

In lines 430 to 450 an adjustment is 
made for grade levels less than 1 (pri- 
mary or kindergarten level) and grade 
levels greater than fourth. Lines 460 to 
540 allow the system to calculate an 
answer and present it on the screen, 
while lines 550 to 600 accept the 
answer and print an error message if an 
incorrect digit or invalid character is 
received. 

Subroutines, data statements and 
functions start at line 690 and end at 
line 1 130. 

Function FNP on lines 690 to 730 
allows a message to be printed on the 
screen at location (HO, VO). Function 
FNN on line 740 generates an integer 
random number within the range of 0 to 
K6-1. Function FND within lines 750 
to 830 is used to calculate a difficulty 
value for a number. 

The subroutines starting on lines 840 
and 930 respectively are used to sub- 
divide the number into its separate 
digits and accept and check the input, 
digit by digit. 

The DATA statement at line 1040 is 
used for the maximum addend per 
grade level while the DATA statements 
following it are error messages that 
may be printed if a wrong input has 
been detected. 

The program section within lines 
1141 to 1 159 is used to print out the 
accummulated information on each 
problem (difficulty, whether right/ 
wrong, amount of time used) to give a 
parent an overview on the areas of 
difficulty a child is having. □ 
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Program Listing 

10 dim L$<i:3)fN$(i:30)>B*<i:30>>s$<i:i)fX*<i:i) 

20 DIM P8(150f3) 

30 DIM GO ( 6 ) f D < 3 ) f M$ ( 8 : 35 ) \MAT READ GOXMAT READ M$ 

40 DIM U$( 1 :35) fS(2)\RANDGMIZE\X$=CHR$< 13 >\S$=CHR$ ( 12) 

50 B$=" " \M5=7\S ( 1 ) =0\S ( 2 ) = 120 
60 B$=B$+B$\IF LEN ( B$ > <30 THEN 60 

70 PRINT S$ r X$ f TAB ( 5 ) f \ INPUT 1 • Hi* What's your Name " fN* 
80 L=LEN(N*)\IF L=0 THEN 140 



REM * * 
R’EM * Hitting a CTRL/P now * 
REM * will cause a Jump to the * 
REM * Parent's section * 
REM * * 



REM ******************************************************* 

90 IF ASC<N$)=16 THEN 1160 

100 FOR 1 = 1 TO LEN<N*>\IF MID* <N* f I f I ><>" " THEN EXIT 120 
110 NEXT\N1=L\G0T0 160 

120 FOR J=I TO L\IF MID*<N*f J r J> = " * THEN EXIT 150 
130 NEXT\N1=L\G0T0 160 

REM ******************************************************* 
REM * * 

REM * Check for a blank Name 

REM * * 

REM ************)|C)(c*}t{)|(*#*********)K>K*****)|(>K***)((*)|(*)|(***)|c*)|()(<)|()|()<( 
140 N*=" NONAME ■ \J=7 
150 N1=J-1 

160 PRINT " Thank you » " fLEFT* <N*rNl ) fX* 

170 PRINT " " r LEFT * < N* f N1 ) f " - You will have "f 

180 IF S ( 2 ) =0 THEN 210 ELSE PRINT S<2) f " seconds" 

190 PRINT "to answer as mans problems as possible ♦" r X* 

200 GOTO 220 

210 PRINT S(1)f" problems to answer" 

220 PRINT " To help you out t when answering the" 

230 PRINT "problems you will not have to press the return key 

240 PRINT "Hit any key to continue ♦♦" f \WAIT 

250 PRINT X* t S*\PRINT " Type answers as onesftens £ "f 

260 PRINT "hundreds " \PRINT\PRINT " For example- 

270 PRINT " An answer of 47 would be typed in as x 7' and" r 

280 PRINT " '4'" 

290 PRINTXPRINT "What grade are you in " f LEFT* ( N* f N1 ) f 
300 INPUT ": " f A* 

310 IF LEN< A* )>0 THEN 330 

320 PRINT "Come ON give me SOME answer ! ! "\G0T0 290 
330 FOR 1=1 TO LEN ( A* ) 

340 IF ASC < A* f I ) <48 OR ASC(A*fI)>57 THEN EXIT 360 
350 NEXTXGOTO 370 

360 PRINT "Look - I can only understand numbers !!!" \G0T0 290 
370 G=UAL(A*)\IF G<5 THEN 410 

380 PRINT "Kind of OLD to be learning addition aren't you?" 
390 PRINT "But that's alright - I've flunked BASIC before too 
400 PAUSE 60XPRINT " Only kidding " \PAUSE 120 
410 PRINT S$fX$f * All right - when you're ready to go - " 

420 PRINTXPRINT "Press any Key ♦ ♦ " f\UAIT\P7=0 

430 IF G<6 THEN G1=G ELSE Gl=6 

440 IF G=0 THEN Gl = l 

450 IF Gl<5 THEN G2=6-G1 ELSE G2=2 



930 REM ** Get Input ** 

940 E=0\E5=36~M6 

950 FOR I9=M6 TO 1 STEP ~1 

960 A9=INP ( 1 ) \A9=A9 -48\U*=CHR* < A9 f 48 ) \X=FNP (U$fLf E5+I9 ) 
970 IF A9<>D (19) THEN EXIT 990 
980 NEXTXGOTO 1000 
990 E=1 

1 000 T=T - INT < T I ME < 0 > /60+ ♦ 5 ) \P7=P7T 1 \P8 ( P7 f 1 ) =D5 
1020 P8<P7f2)=ABS<T1~T)\P8(P7f3>=1~E 



1030 RETURN 

1040 DATA 9 f 25 f 54 f 100 f 150 f 250 

1050 DATA "Wrong- 

1060 DATA "You can do better" 

1070 DATA " B0000000 ! ! ! ! " 

1080 DATA "What was that" 

1090 DATA "You have to do better" 

1100 DATA "Wrong number" 

1110 DATA "You blew it ! ! " 

1120 DATA "You're not thinking " f " D o Better Next Time" 

1130 REM DATA "Dumb Attack Time- 

1140 PRINT CHR* ( 12 ) 

REM ******************************************************* 
REM * * 

REM * Listing of Problems f D ifficulty & * 

REM * No* Problems Solved * 

REM * * 

REM ******************************************************* 

1141 FILE J 2fLIST\S5 f S6=0 



1142 PRINT*2fX*fTAB<6) f "P rob* Difficulty Time Correct" 

1143 FOR 1=1 TO P7 

1144 IF S(1)=0 THEN G6= < G2 -P8 ( I f 2 > ) /G2+1 ELSE G6=G1 

1145 S5=S5+P8 < I f 3 ) *P8 ( I f 1 ) *G6\S6=S6+P3 ( I f 1 ) 

1146 PRINT J2f TAB (5) f%6I f I f%7I fP8< I f 1 ) f%9F1 fP8 ( I f2) f 

1149 IF F’8 ( I f 3 ) =0 THEN A*="Wror.g" ELSE A*="Risht" 

1150 PRINT:2f" "fA$ 

1151 NEXT 

1152 PRINT:2f "TOTAL POSSIBLE SCORE = "fS6 

1153 PRINT J2f "YOUR SCORE = "fS5 
1159 GOTO 1280 

REM M***************************************************** 
REM * * 

R' EM * Parent's Section * 

REM * This section allows a parent * 



REM * 
REM * 
REM * 
REM * 
REM * 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 



or SuardiariF teacher Fete* to set 
the limits the child will be graded 
against ♦ 



PRINTXPRINT S*fX*\MAT S=0 

INPUT "* Do you want a Time Limit "fA$ 

IF LEFT*<A*f 1 )="Y" THEN 1250 

PRINT "# OkF Then the user can only answer a set "f 

PRINT "no* of Questions "\PR I NT 

INPUT " ^Maximum no* of Questions <20> "fA* 

IF LEN<A*>=0 THEN S(l)=20 ELSE S(1)=UAL<A*) 

IF S ( 1 )>100 THEN PRINT "Too Large - 100 Maximum " \G0TC 



1240 GOTO 1270 

1250 PRINTXINPUT "*Time limitdn seconds) <120> "fA$ 
1260 IF LEN ( A* ) =0 THEN S(2)=120 ELSE S(2)=UAL<A*> 
1270 GOTO 70 
1280 REM 



1210 



* * * * 



